home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / Delphi 3.0 / DATA.Z / vcf1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-30  |  89.1 KB  |  2,167 lines
  1. unit vcf1;
  2.  
  3. { VCI Formula One Library }
  4. { Version 1.0 }
  5.  
  6. { Conversion log:
  7. Error: 'Type' is a reserved word. _DVCF1.Type changed to 'Type' is a reserved word_
  8.  }
  9.  
  10. interface
  11.  
  12. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  13.  
  14. const
  15.   LIBID_VCIF1Lib: TGUID = '{042BADC8-5E58-11CE-B610-524153480001}';
  16.  
  17. const
  18.  
  19. { Specify how column widths are stored and displayed }
  20.  
  21. { F1ColWidthUnitsConstants }
  22.  
  23.   F1ColWidthUnitsCharacters = 0;
  24.   F1ColWidthUnitsTwips = 1;
  25.  
  26. { Specify appearance of mouse. }
  27.  
  28. { F1MousePointerConstants }
  29.  
  30.   F1Default = 0;
  31.   F1Arrow = 1;
  32.   F1Cross = 2;
  33.   F1IBeam = 3;
  34.   F1Icon = 4;
  35.   F1Size = 5;
  36.   F1SizeNESW = 6;
  37.   F1SizeNS = 7;
  38.   F1SizeNWSE = 8;
  39.   F1SizeWE = 9;
  40.   F1UpArrow = 10;
  41.   F1Hourglass = 11;
  42.   F1NoDrop = 12;
  43.   F1Custom = 13;
  44.  
  45. { Specifies behaviour of scroll bars and selections. }
  46.  
  47. { F1ShowOffOnAutoConstants }
  48.  
  49.   F1Off = 0;
  50.   F1On = 1;
  51.   F1Auto = 2;
  52.  
  53. { Specify sheet tab behavior. }
  54.  
  55. { F1ShowTabsConstants }
  56.  
  57.   F1TabsOff = 0;
  58.   F1TabsBottom = 1;
  59.   F1TabsTop = 2;
  60.  
  61. { Specify cursor mode for drawing objects. }
  62.  
  63. { F1ModeConstants }
  64.  
  65.   F1ModeNormal = 0;
  66.   F1ModeLine = 1;
  67.   F1ModeRectangle = 2;
  68.   F1ModeOval = 3;
  69.   F1ModeArc = 4;
  70.   F1ModeChart = 5;
  71.   F1ModeField = 6;
  72.   F1ModeButton = 7;
  73.   F1ModePolygon = 8;
  74.   F1ModeCheckBox = 9;
  75.   F1ModeDropDown = 10;
  76.  
  77. { Specify polygon editing mode. }
  78.  
  79. { F1PolyEditModeConstants }
  80.  
  81.   F1PolyEditModeNormal = 0;
  82.   F1PolyEditModePoints = 1;
  83.  
  84. { Specify how data is shifted when new cells are inserted or deleted. }
  85.  
  86. { F1ShiftTypeConstants }
  87.  
  88.   F1ShiftHorizontal = 1;
  89.   F1ShiftVertical = 2;
  90.   F1ShiftRows = 3;
  91.   F1ShiftCols = 4;
  92.  
  93. { Specify how data is aligned horizontally. }
  94.  
  95. { F1HAlignConstants }
  96.  
  97.   F1HAlignGeneral = 1;
  98.   F1HAlignLeft = 2;
  99.   F1HAlignCenter = 3;
  100.   F1HAlignRight = 4;
  101.   F1HAlignFill = 5;
  102.   F1HAlignJustify = 6;
  103.   F1HAlignCenterAcrossCells = 7;
  104.  
  105. { Specify how data is aligned vertically. }
  106.  
  107. { F1VAlignConstants }
  108.  
  109.   F1VAlignTop = 1;
  110.   F1VAlignCenter = 2;
  111.   F1VAlignBottom = 3;
  112.  
  113. { Specify how data is cleared. }
  114.  
  115. { F1ClearTypeConstants }
  116.  
  117.   F1ClearDlg = 0;
  118.   F1ClearAll = 1;
  119.   F1ClearFormats = 2;
  120.   F1ClearValues = 3;
  121.  
  122. { Specify a file type. }
  123.  
  124. { F1FileTypeConstants }
  125.  
  126.   F1FileFormulaOne = 1;
  127.   F1FileExcel4 = 2;
  128.   F1FileTabbedText = 3;
  129.   F1FileExcel5 = 4;
  130.   F1FileFormulaOne3 = 5;
  131.   F1FileTabbedTextValuesOnly = 6;
  132.  
  133. { Specify an object type. }
  134.  
  135. { F1ObjTypeConstants }
  136.  
  137.   F1ObjLine = 1;
  138.   F1ObjRectangle = 2;
  139.   F1ObjOval = 3;
  140.   F1ObjArc = 4;
  141.   F1ObjChart = 5;
  142.   F1ObjButton = 7;
  143.   F1ObjPolygon = 8;
  144.   F1ObjCheckBox = 9;
  145.   F1ObjDropDown = 10;
  146.   F1ObjPicture = 11;
  147.  
  148. { Formula One error constants. }
  149.  
  150. { F1ErrorConstants }
  151.  
  152.   F1ErrorNone = 0;
  153.   F1ErrorGeneral = 20001;
  154.   F1ErrorBadArgument = 20002;
  155.   F1ErrorNoMemory = 20003;
  156.   F1ErrorBadFormula = 20004;
  157.   F1ErrorBufTooShort = 20005;
  158.   F1ErrorNotFound = 20006;
  159.   F1ErrorBadRC = 20007;
  160.   F1ErrorBadHSS = 20008;
  161.   F1ErrorTooManyHSS = 20009;
  162.   F1ErrorNoTable = 20010;
  163.   F1ErrorUnableToOpenFile = 20011;
  164.   F1ErrorInvalidFile = 20012;
  165.   F1ErrorInsertShiftOffTable = 20013;
  166.   F1ErrorOnlyOneRange = 20014;
  167.   F1ErrorNothingToPaste = 20015;
  168.   F1ErrorBadNumberFormat = 20016;
  169.   F1ErrorTooManyFonts = 20017;
  170.   F1ErrorTooManySelectedRanges = 20018;
  171.   F1ErrorUnableToWriteFile = 20019;
  172.   F1ErrorNoTransaction = 20020;
  173.   F1ErrorNothingToPrint = 20021;
  174.   F1ErrorPrintMarginsDontFit = 20022;
  175.   F1ErrorCancel = 20023;
  176.   F1ErrorUnableToInitializePrinter = 20024;
  177.   F1ErrorStringTooLong = 20025;
  178.   F1ErrorFormulaTooLong = 20026;
  179.   F1ErrorUnableToOpenClipboard = 20027;
  180.   F1ErrorPasteWouldOverflowSheet = 20028;
  181.   F1ErrorLockedCellsCannotBeModified = 20029;
  182.   F1ErrorLockedDocCannotBeModified = 20030;
  183.   F1ErrorInvalidName = 20031;
  184.   F1ErrorCannotDeleteNameInUse = 20032;
  185.   F1ErrorUnableToFindName = 20033;
  186.   F1ErrorNoWindow = 20034;
  187.   F1ErrorSelection = 20035;
  188.   F1ErrorTooManyObjects = 20036;
  189.   F1ErrorInvalidObjectType = 20037;
  190.   F1ErrorObjectNotFound = 20038;
  191.   F1ErrorInvalidRequest = 20039;
  192.   F1ErrorBadValidationRule = 20040;
  193.   F1ErrorBadInputMask = 20041;
  194.   F1ErrorValidationFailed = 20042;
  195.   F1ErrorNoODBCConnection = 20043;
  196.   F1ErrorUnableToLoadODBC = 20044;
  197.   F1ErrorUnsupportedFeature = 20045;
  198.  
  199. { Specify cell reference behavior for list box. }
  200.  
  201. { F1ControlCellConstants }
  202.  
  203.   F1ControlNoCell = 0;
  204.   F1ControlCellValue = 1;
  205.   F1ControlCellText = 2;
  206.  
  207. const
  208.  
  209. { Component class GUIDs }
  210.   Class_F1Book: TGUID = '{042BADC5-5E58-11CE-B610-524153480001}';
  211.  
  212. type
  213.  
  214. { Forward declarations }
  215.   _DVCF1 = dispinterface;
  216.   _DVCF1Events = dispinterface;
  217.  
  218.   F1ColWidthUnitsConstants = TOleEnum;
  219.   F1MousePointerConstants = TOleEnum;
  220.   F1ShowOffOnAutoConstants = TOleEnum;
  221.   F1ShowTabsConstants = TOleEnum;
  222.   F1ModeConstants = TOleEnum;
  223.   F1PolyEditModeConstants = TOleEnum;
  224.   F1ShiftTypeConstants = TOleEnum;
  225.   F1HAlignConstants = TOleEnum;
  226.   F1VAlignConstants = TOleEnum;
  227.   F1ClearTypeConstants = TOleEnum;
  228.   F1FileTypeConstants = TOleEnum;
  229.   F1ObjTypeConstants = TOleEnum;
  230.   F1ErrorConstants = TOleEnum;
  231.   F1ControlCellConstants = TOleEnum;
  232.  
  233. { Dispatch interface for Formula One Workbook }
  234.  
  235.   _DVCF1 = dispinterface
  236.     ['{042BADC6-5E58-11CE-B610-524153480001}']
  237.     property BackColor: TColor dispid 3;
  238.     property Col: Integer dispid 4;
  239.     property Row: Integer dispid 5;
  240.     property ShowHScrollBar: Smallint dispid 6;
  241.     property Text: WideString dispid 7;
  242.     property Number: Double dispid 8;
  243.     property Formula: WideString dispid 9;
  244.     property FixedCol: Integer dispid 10;
  245.     property FixedCols: Integer dispid 11;
  246.     property FixedRow: Integer dispid 12;
  247.     property FixedRows: Integer dispid 13;
  248.     property ShowGridLines: WordBool dispid 14;
  249.     property ShowRowHeading: WordBool dispid 15;
  250.     property ShowSelections: Smallint dispid 16;
  251.     property LeftCol: Integer dispid 17;
  252.     property MaxCol: Integer dispid 18;
  253.     property MaxRow: Integer dispid 19;
  254.     property TopRow: Integer dispid 20;
  255.     property AllowResize: WordBool dispid 21;
  256.     property AllowSelections: WordBool dispid 22;
  257.     property AllowFormulas: WordBool dispid 23;
  258.     property AllowInCellEditing: WordBool dispid 24;
  259.     property ShowVScrollBar: Smallint dispid 25;
  260.     property AllowFillRange: WordBool dispid 26;
  261.     property AllowMoveRange: WordBool dispid 27;
  262.     property SelStartCol: Integer dispid 28;
  263.     property SelStartRow: Integer dispid 29;
  264.     property SelEndCol: Integer dispid 30;
  265.     property SelEndRow: Integer dispid 31;
  266.     property ExtraColor: TColor dispid 32;
  267.     property FileName: WideString dispid 33;
  268.     property AutoRecalc: WordBool dispid 34;
  269.     property PrintGridLines: WordBool dispid 35;
  270.     property PrintRowHeading: WordBool dispid 36;
  271.     property PrintHCenter: WordBool dispid 37;
  272.     property PrintVCenter: WordBool dispid 38;
  273.     property PrintLeftToRight: WordBool dispid 39;
  274.     property PrintHeader: WideString dispid 40;
  275.     property PrintFooter: WideString dispid 41;
  276.     property PrintLeftMargin: Double dispid 42;
  277.     property PrintTopMargin: Double dispid 43;
  278.     property PrintRightMargin: Double dispid 44;
  279.     property PrintBottomMargin: Double dispid 45;
  280.     property PrintArea: WideString dispid 46;
  281.     property PrintTitles: WideString dispid 47;
  282.     property PrintNoColor: WordBool dispid 48;
  283.     property Selection: WideString dispid 49;
  284.     property TableName: WideString dispid 50;
  285.     property DoCancelEdit: WordBool dispid 51;
  286.     property DoSelChange: WordBool dispid 52;
  287.     property DoStartEdit: WordBool dispid 53;
  288.     property DoEndEdit: WordBool dispid 54;
  289.     property DoStartRecalc: WordBool dispid 55;
  290.     property DoEndRecalc: WordBool dispid 56;
  291.     property DoClick: WordBool dispid 57;
  292.     property DoDblClick: WordBool dispid 58;
  293.     property ShowColHeading: WordBool dispid 59;
  294.     property PrintColHeading: WordBool dispid 60;
  295.     property Entry: WideString dispid 61;
  296.     property Repaint: WordBool dispid 62;
  297.     property AllowArrows: WordBool dispid 63;
  298.     property AllowTabs: WordBool dispid 64;
  299.     property FormattedText: WideString dispid 65;
  300.     property RowMode: WordBool dispid 66;
  301.     property AllowDelete: WordBool dispid 67;
  302.     property EnableProtection: WordBool dispid 68;
  303.     property MinCol: Integer dispid 69;
  304.     property MinRow: Integer dispid 70;
  305.     property DoTopLeftChanged: WordBool dispid 71;
  306.     property AllowEditHeaders: WordBool dispid 72;
  307.     property DoObjClick: WordBool dispid 73;
  308.     property DoObjDblClick: WordBool dispid 74;
  309.     property AllowObjSelections: WordBool dispid 75;
  310.     property DoRClick: WordBool dispid 76;
  311.     property DoRDblClick: WordBool dispid 77;
  312.     property Clip: WideString dispid 78;
  313.     property ClipValues: WideString dispid 79;
  314.     property PrintLandscape: WordBool dispid 80;
  315.     property Enabled: WordBool dispid -514;
  316.     property BorderStyle: Smallint dispid -504;
  317.     property AppName: WideString dispid 81;
  318.     property HdrHeight: Smallint dispid 82;
  319.     property HdrWidth: Smallint dispid 83;
  320.     property NumberFormat: WideString dispid 84;
  321.     property TopLeftText: WideString dispid 85;
  322.     property EnterMovesDown: WordBool dispid 86;
  323.     property LastCol: Integer dispid 87;
  324.     property LastRow: Integer dispid 88;
  325.     property Logical: WordBool dispid 89;
  326.     property Mode: Smallint dispid 90;
  327.     property PolyEditMode: Smallint dispid 91;
  328.     property ViewScale: Smallint dispid 92;
  329.     property SelectionCount: Smallint dispid 93;
  330.     property Title: WideString dispid 94;
  331.     property Type_: Smallint dispid 95;
  332.     property ShowFormulas: WordBool dispid 96;
  333.     property ShowZeroValues: WordBool dispid 97;
  334.     property MousePointer: Smallint dispid 2;
  335.     property MouseIcon: IPictureDisp dispid 98;
  336.     property DoObjValueChanged: WordBool dispid 99;
  337.     property ScrollToLastRC: WordBool dispid 100;
  338.     property Modified: WordBool dispid 101;
  339.     property DoObjGotFocus: WordBool dispid 102;
  340.     property DoObjLostFocus: WordBool dispid 103;
  341.     property PrintDevMode: OLE_HANDLE dispid 104;
  342.     property NumSheets: Integer dispid 105;
  343.     property Sheet: Integer dispid 106;
  344.     property ColWidthUnits: Smallint dispid 107;
  345.     property ShowTypeMarkers: WordBool dispid 108;
  346.     property ShowTabs: Smallint dispid 109;
  347.     property ShowEditBar: WordBool dispid 110;
  348.     property ShowEditBarCellRef: WordBool dispid 111;
  349.     property AllowDesigner: WordBool dispid 1;
  350.     property hWnd: OLE_HANDLE dispid -515;
  351.     property AllowAutoFill: WordBool dispid 112;
  352.     property ColText[nCol: Integer]: WideString dispid 272;
  353.     property DefinedName[const pName: WideString]: WideString dispid 273;
  354.     property EntryRC[nRow, nCol: Integer]: WideString dispid 274;
  355.     property FormattedTextRC[nRow, nCol: Integer]: WideString dispid 275;
  356.     property FormulaRC[nRow, nCol: Integer]: WideString dispid 276;
  357.     property LastColForRow[nRow: Integer]: Integer dispid 277;
  358.     property LogicalRC[nRow, nCol: Integer]: WordBool dispid 278;
  359.     property NumberRC[nRow, nCol: Integer]: Double dispid 279;
  360.     property RowText[nRow: Integer]: WideString dispid 280;
  361.     property TextRC[nRow, nCol: Integer]: WideString dispid 281;
  362.     property TypeRC[nRow, nCol: Integer]: Smallint dispid 282;
  363.     procedure EditPasteValues; dispid 113;
  364.     procedure GetAlignment(var  {IDL_None} pHorizontal: Smallint; var  {IDL_None} pWordWrap: WordBool; var  {IDL_None} pVertical,  {IDL_None} pOrientation: Smallint); dispid 114;
  365.     procedure GetBorder(var  {IDL_None} pLeft,  {IDL_None} pRight,  {IDL_None} pTop,  {IDL_None} pBottom,  {IDL_None} pShade: Smallint; var  {IDL_None} pcrLeft,  {IDL_None} pcrRight,  {IDL_None} pcrTop,  {IDL_None} pcrBottom: TColor); dispid 115;
  366.     procedure GetFont(var  {IDL_None} pName: WideString; var  {IDL_None} pSize: Smallint; var  {IDL_None} pBold,  {IDL_None} pItalic,  {IDL_None} pUnderline,  {IDL_None} pStrikeout: WordBool; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pOutline,  {IDL_None} pShadow: WordBool); dispid 116;
  367.     procedure GetLineStyle(var  {IDL_None} pStyle: Smallint; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pWeight: Smallint); dispid 117;
  368.     procedure GetPattern(var  {IDL_None} pPattern: Smallint; var  {IDL_None} pcrFG,  {IDL_None} pcrBG: TColor); dispid 118;
  369.     procedure GetProtection(var  {IDL_None} pLocked,  {IDL_None} pHidden: WordBool); dispid 119;
  370.     procedure GetTabbedText(nR1, nC1, nR2, nC2: Integer; bValuesOnly: WordBool; var  {IDL_None} phText: OLE_HANDLE); dispid 120;
  371.     procedure SetTabbedText(nStartRow, nStartCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; bValuesOnly: WordBool; const pText: WideString); dispid 121;
  372.     procedure AddColPageBreak(nCol: Integer); dispid 122;
  373.     procedure AddPageBreak; dispid 123;
  374.     procedure AddRowPageBreak(nRow: Integer); dispid 124;
  375.     procedure AddSelection(nR1, nC1, nR2, nC2: Integer); dispid 125;
  376.     procedure Attach(const pTitle: WideString); dispid 126;
  377.     procedure AttachToSS(hSrcSS: Integer); dispid 127;
  378.     procedure CalculationDlg; dispid 128;
  379.     procedure CancelEdit; dispid 129;
  380.     procedure CheckRecalc; dispid 130;
  381.     procedure ClearClipboard; dispid 131;
  382.     procedure ClearRange(nR1, nC1, nR2, nC2: Integer; ClearType: Smallint); dispid 132;
  383.     procedure ColorPaletteDlg; dispid 133;
  384.     procedure ColWidthDlg; dispid 134;
  385.     procedure CopyAll(hSrcSS: Integer); dispid 135;
  386.     procedure CopyRange(nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer); dispid 136;
  387.     procedure DefinedNameDlg; dispid 137;
  388.     procedure DeleteDefinedName(const pName: WideString); dispid 138;
  389.     procedure DeleteRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint); dispid 139;
  390.     procedure Draw(hDC: OLE_HANDLE; x, y, cx, cy, nRow, nCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; nFixedRow, nFixedCol, nFixedRows, nFixedCols: Integer); dispid 140;
  391.     procedure EditClear(ClearType: Smallint); dispid 141;
  392.     procedure EditCopy; dispid 142;
  393.     procedure EditCopyDown; dispid 143;
  394.     procedure EditCopyRight; dispid 144;
  395.     procedure EditCut; dispid 145;
  396.     procedure EditDelete(ShiftType: Smallint); dispid 146;
  397.     procedure EditInsert(ShiftType: Smallint); dispid 147;
  398.     procedure EditPaste; dispid 148;
  399.     procedure EndEdit; dispid 149;
  400.     procedure FilePageSetupDlg; dispid 150;
  401.     procedure FilePrint(bShowPrintDlg: WordBool); dispid 151;
  402.     procedure FilePrintSetupDlg; dispid 152;
  403.     procedure FormatAlignmentDlg; dispid 153;
  404.     procedure FormatBorderDlg; dispid 154;
  405.     procedure FormatCurrency0; dispid 155;
  406.     procedure FormatCurrency2; dispid 156;
  407.     procedure FormatDefaultFontDlg; dispid 157;
  408.     procedure FormatFixed; dispid 158;
  409.     procedure FormatFixed2; dispid 159;
  410.     procedure FormatFontDlg; dispid 160;
  411.     procedure FormatFraction; dispid 161;
  412.     procedure FormatGeneral; dispid 162;
  413.     procedure FormatHmmampm; dispid 163;
  414.     procedure FormatMdyy; dispid 164;
  415.     procedure FormatNumberDlg; dispid 165;
  416.     procedure FormatPatternDlg; dispid 166;
  417.     procedure FormatPercent; dispid 167;
  418.     procedure FormatScientific; dispid 168;
  419.     procedure GetActiveCell(var  {IDL_None} pRow,  {IDL_None} pCol: Integer); dispid 169;
  420.     property ColWidth[nCol: Integer]: Smallint dispid 283;
  421.     property RowHeight[nRow: Integer]: Smallint dispid 284;
  422.     procedure GetDefaultFont(var  {IDL_None} pBuf: WideString; var  {IDL_None} pSize: Smallint); dispid 170;
  423.     procedure GetHdrSelection(var  {IDL_None} pTopLeftHdr,  {IDL_None} pRowHdr,  {IDL_None} pColHdr: WordBool); dispid 171;
  424.     procedure GetIteration(var  {IDL_None} pIteration: WordBool; var  {IDL_None} pMaxIterations: Smallint; var  {IDL_None} pMaxChange: Double); dispid 172;
  425.     procedure GetPrintScale(var  {IDL_None} pScale: Smallint; var  {IDL_None} pFitToPage: WordBool; var  {IDL_None} pVPages,  {IDL_None} pHPages: Integer); dispid 173;
  426.     procedure GetSelection(nSelection: Smallint; var  {IDL_None} pR1,  {IDL_None} pC1,  {IDL_None} pR2,  {IDL_None} pC2: Integer); dispid 174;
  427.     procedure GotoDlg; dispid 175;
  428.     procedure HeapMin; dispid 176;
  429.     procedure InitTable; dispid 177;
  430.     procedure InsertRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint); dispid 178;
  431.     procedure LineStyleDlg; dispid 179;
  432.     procedure MoveRange(nR1, nC1, nR2, nC2, nRowOffset, nColOffset: Integer); dispid 180;
  433.     procedure ObjAddItem(ID: Integer; const pItem: WideString); dispid 181;
  434.     procedure ObjAddSelection(ID: Integer); dispid 182;
  435.     procedure ObjBringToFront; dispid 183;
  436.     procedure ObjDeleteItem(ID: Integer; nItem: Smallint); dispid 184;
  437.     procedure ObjGetCell(ID: Integer; var  {IDL_None} pControlCellType: Smallint; var  {IDL_None} pRow,  {IDL_None} pCol: Integer); dispid 185;
  438.     procedure ObjGetPos(ID: Integer; var  {IDL_None} pX1,  {IDL_None} pY1,  {IDL_None} pX2,  {IDL_None} pY2: Single); dispid 186;
  439.     procedure ObjGetSelection(nSelection: Smallint; var  {IDL_None} pID: Integer); dispid 187;
  440.     procedure ObjInsertItem(ID: Integer; nItem: Smallint; const pItem: WideString); dispid 188;
  441.     procedure ObjNameDlg; dispid 189;
  442.     procedure ObjNew(ObjType: Smallint; nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer); dispid 190;
  443.     procedure ObjNewPicture(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer; hMF: OLE_HANDLE; nMapMode, nWndExtentX, nWndExtentY: Integer); dispid 191;
  444.     procedure ObjOptionsDlg; dispid 192;
  445.     procedure ObjPosToTwips(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint); dispid 193;
  446.     procedure ObjSendToBack; dispid 194;
  447.     procedure ObjSetCell(ID: Integer; ControlCellType: Smallint; nRow, nCol: Integer); dispid 195;
  448.     procedure ObjSetPicture(ID: Integer; hMF: OLE_HANDLE; nMapMode: Smallint; nWndExtentX, nWndExtentY: Integer); dispid 196;
  449.     procedure ObjSetPos(ID: Integer; nX1, nY1, nX2, nY2: Single); dispid 197;
  450.     procedure ObjSetSelection(ID: Integer); dispid 198;
  451.     procedure OpenFileDlg(const pTitle: WideString; hWndParent: OLE_HANDLE; var  {IDL_None} pBuf: WideString); dispid 199;
  452.     procedure ProtectionDlg; dispid 200;
  453.     procedure RangeToTwips(nRow1, nCol1, nRow2, nCol2: Integer; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint); dispid 201;
  454.     procedure Read(const pPathName: WideString; var  {IDL_None} pFileType: Smallint); dispid 202;
  455.     procedure ReadFromBlob(hBlob: OLE_HANDLE; nReservedBytes: Smallint); dispid 203;
  456.     procedure Recalc; dispid 204;
  457.     procedure RemoveColPageBreak(nCol: Integer); dispid 205;
  458.     procedure RemovePageBreak; dispid 206;
  459.     procedure RemoveRowPageBreak(nRow: Integer); dispid 207;
  460.     procedure RowHeightDlg; dispid 208;
  461.     procedure SaveFileDlg(const pTitle: WideString; var  {IDL_None} pBuf: WideString; var  {IDL_None} pFileType: Smallint); dispid 209;
  462.     procedure SaveWindowInfo; dispid 210;
  463.     procedure SetActiveCell(nRow, nCol: Integer); dispid 211;
  464.     procedure SetAlignment(HAlign: Smallint; bWordWrap: WordBool; VAlign, nOrientation: Smallint); dispid 212;
  465.     procedure SetBorder(nOutline, nLeft, nRight, nTop, nBottom, nShade: Smallint; crOutline, crLeft, crRight, crTop, crBottom: TColor); dispid 213;
  466.     procedure SetColWidth(nC1, nC2: Integer; nWidth: Smallint; bDefColWidth: WordBool); dispid 214;
  467.     procedure SetColWidthAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool); dispid 215;
  468.     procedure SetDefaultFont(const pName: WideString; nSize: Smallint); dispid 216;
  469.     procedure SetFont(const pName: WideString; nSize: Smallint; bBold, bItalic, bUnderline, bStrikeout: WordBool; crColor: TColor; bOutline, bShadow: WordBool); dispid 217;
  470.     procedure SetHdrSelection(bTopLeftHdr, bRowHdr, bColHdr: WordBool); dispid 218;
  471.     procedure SetIteration(bIteration: WordBool; nMaxIterations: Smallint; nMaxChange: Double); dispid 219;
  472.     procedure SetLineStyle(nStyle: Smallint; crColor: TColor; nWeight: Smallint); dispid 220;
  473.     procedure SetPattern(nPattern: Smallint; crFG, crBG: TColor); dispid 221;
  474.     procedure SetPrintAreaFromSelection; dispid 222;
  475.     procedure SetPrintScale(nScale: Smallint; bFitToPage: WordBool; nVPages, nHPages: Smallint); dispid 223;
  476.     procedure SetPrintTitlesFromSelection; dispid 224;
  477.     procedure SetProtection(bLocked, bHidden: WordBool); dispid 225;
  478.     procedure SetRowHeight(nR1, nR2: Integer; nHeight: Smallint; bDefRowHeight: WordBool); dispid 226;
  479.     procedure SetRowHeightAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool); dispid 227;
  480.     procedure SetSelection(nR1, nC1, nR2, nC2: Integer); dispid 228;
  481.     procedure ShowActiveCell; dispid 229;
  482.     procedure Sort3(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; nKey1, nKey2, nKey3: Integer); dispid 230;
  483.     procedure SortDlg; dispid 231;
  484.     procedure StartEdit(bClear, bInCellEditFocus, bArrowsExitEditMode: WordBool); dispid 232;
  485.     procedure SwapTables(hSS2: Integer); dispid 233;
  486.     procedure TransactCommit; dispid 234;
  487.     procedure TransactRollback; dispid 235;
  488.     procedure TransactStart; dispid 236;
  489.     procedure TwipsToRC(x, y: Integer; var  {IDL_None} pRow,  {IDL_None} pCol: Integer); dispid 237;
  490.     procedure SSUpdate; dispid 238;
  491.     function SSVersion: Smallint; dispid 239;
  492.     procedure Write(const pPathName: WideString; FileType: Smallint); dispid 240;
  493.     procedure WriteToBlob(var  {IDL_None} phBlob: OLE_HANDLE; nReservedBytes: Smallint); dispid 241;
  494.     procedure SetRowHidden(nRow1, nRow2: Integer; bHidden: WordBool); dispid 242;
  495.     procedure SetColHidden(nCol1, nCol2: Integer; bHidden: WordBool); dispid 243;
  496.     procedure SetColWidthTwips(nCol1, nCol2, nWidth: Integer; bDefColWidth: WordBool); dispid 244;
  497.     property DefinedNameByIndex[nName: Integer]: WideString dispid 285;
  498.     property SheetName[nSheet: Integer]: WideString dispid 286;
  499.     property PaletteEntry[nEntry: Integer]: TColor dispid 287;
  500.     procedure EditInsertSheets; dispid 245;
  501.     procedure EditDeleteSheets; dispid 246;
  502.     procedure InsertSheets(nSheet, nSheets: Integer); dispid 247;
  503.     procedure DeleteSheets(nSheet, nSheets: Integer); dispid 248;
  504.     procedure Refresh; dispid -550;
  505.     property ColWidthTwips[Col: Integer]: Smallint dispid 288;
  506.     function NextColPageBreak(Col: Integer): Integer; dispid 249;
  507.     function NextRowPageBreak(Row: Integer): Integer; dispid 250;
  508.     function ObjFirstID: Integer; dispid 251;
  509.     function ObjNextID(ID: Integer): Integer; dispid 252;
  510.     function ObjGetItemCount(ID: Integer): Smallint; dispid 253;
  511.     function ObjGetType(ID: Integer): Smallint; dispid 254;
  512.     function ObjGetSelectionCount: Smallint; dispid 255;
  513.     function FormatRCNr(Row, Col: Integer; DoAbsolute: WordBool): WideString; dispid 256;
  514.     function SS: Integer; dispid 257;
  515.     function ErrorNumberToText(SSError: Integer): WideString; dispid 258;
  516.     property ObjItem[ID: Integer; Item: Smallint]: WideString dispid 289;
  517.     property ObjItems[ID: Integer]: WideString dispid 290;
  518.     property ObjName[ID: Integer]: WideString dispid 291;
  519.     property ObjText[ID: Integer]: WideString dispid 292;
  520.     property ObjValue[ID: Integer]: Smallint dispid 293;
  521.     property ObjVisible[ID: Integer]: WordBool dispid 294;
  522.     function ObjNameToID(const Name: WideString): Integer; dispid 259;
  523.     function DefinedNameCount: Integer; dispid 260;
  524.     property AutoFillItems[Index: Smallint]: WideString dispid 295;
  525.     procedure ValidationRuleDlg; dispid 261;
  526.     procedure SetValidationRule(const Rule, Text: WideString); dispid 262;
  527.     procedure GetValidationRule(var  {IDL_None} Rule,  {IDL_None} Text: WideString); dispid 263;
  528.     function AutoFillItemsCount: Smallint; dispid 264;
  529.     procedure CopyRangeEx(nDstSheet, nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcSheet, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer); dispid 265;
  530.     procedure Sort(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; Keys: OleVariant); dispid 266;
  531.     property ColHidden[nCol: Integer]: WordBool dispid 296;
  532.     property RowHidden[nRow: Integer]: WordBool dispid 297;
  533.     procedure DeleteAutoFillItems(nIndex: Smallint); dispid 267;
  534.     procedure ODBCConnect(var  {IDL_None} pConnect: WideString; bShowErrors: WordBool; var  {IDL_None} pRetCode: Smallint); dispid 268;
  535.     procedure ODBCDisconnect; dispid 269;
  536.     procedure ODBCQuery(var  {IDL_None} pQuery: WideString; nRow, nCol: Integer; bForceShowDlg: WordBool; var  {IDL_None} pSetColNames,  {IDL_None} pSetColFormats,  {IDL_None} pSetColWidths,  {IDL_None} pSetMaxRC: WordBool; var  {IDL_None} pRetCode: Smallint); dispid 270;
  537.     property SheetSelected[nSheet: Integer]: WordBool dispid 298;
  538.     procedure LaunchDesigner; dispid 271;
  539.     procedure AboutBox; dispid -552;
  540.   end;
  541.  
  542. { Event interface for Formula One Workbook }
  543.  
  544.   _DVCF1Events = dispinterface
  545.     ['{042BADC7-5E58-11CE-B610-524153480001}']
  546.     procedure Click(nRow, nCol: Integer); dispid 1;
  547.     procedure DblClick(nRow, nCol: Integer); dispid 2;
  548.     procedure CancelEdit; dispid 3;
  549.     procedure SelChange; dispid 4;
  550.     procedure StartEdit(var  {IDL_None} EditString: WideString; var  {IDL_None} Cancel: Smallint); dispid 5;
  551.     procedure EndEdit(var  {IDL_None} EditString: WideString; var  {IDL_None} Cancel: Smallint); dispid 6;
  552.     procedure StartRecalc; dispid 7;
  553.     procedure EndRecalc; dispid 8;
  554.     procedure TopLeftChanged; dispid 9;
  555.     procedure ObjClick(var  {IDL_None} ObjName: WideString; ObjID: Integer); dispid 10;
  556.     procedure ObjDblClick(var  {IDL_None} ObjName: WideString; ObjID: Integer); dispid 11;
  557.     procedure RClick(nRow, nCol: Integer); dispid 12;
  558.     procedure RDblClick(nRow, nCol: Integer); dispid 13;
  559.     procedure ObjValueChanged(var  {IDL_None} ObjName: WideString; ObjID: Integer); dispid 14;
  560.     procedure Modified; dispid 15;
  561.     procedure MouseDown(Button, Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -605;
  562.     procedure MouseUp(Button, Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -607;
  563.     procedure MouseMove(Button, Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -606;
  564.     procedure ObjGotFocus(var  {IDL_None} ObjName: WideString; ObjID: Integer); dispid 16;
  565.     procedure ObjLostFocus(var  {IDL_None} ObjName: WideString; ObjID: Integer); dispid 17;
  566.     procedure ValidationFailed(var  {IDL_None} pEntry: WideString; nSheet, nRow, nCol: Integer; var  {IDL_None} pShowMessage: WideString; var  {IDL_None} pAction: Smallint); dispid 18;
  567.     procedure KeyPress(var  {IDL_None} KeyAscii: Smallint); dispid -603;
  568.     procedure KeyDown(var  {IDL_None} KeyCode: Smallint; Shift: Smallint); dispid -602;
  569.     procedure KeyUp(var  {IDL_None} KeyCode: Smallint; Shift: Smallint); dispid -604;
  570.   end;
  571.  
  572. { VCI Formula One Workbook }
  573.  
  574.   TF1BookClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  575.   TF1BookDblClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  576.   TF1BookStartEdit = procedure(Sender: TObject; var  {IDL_None} EditString: WideString; var  {IDL_None} Cancel: Smallint) of object;
  577.   TF1BookEndEdit = procedure(Sender: TObject; var  {IDL_None} EditString: WideString; var  {IDL_None} Cancel: Smallint) of object;
  578.   TF1BookObjClick = procedure(Sender: TObject; var  {IDL_None} ObjName: WideString; ObjID: Integer) of object;
  579.   TF1BookObjDblClick = procedure(Sender: TObject; var  {IDL_None} ObjName: WideString; ObjID: Integer) of object;
  580.   TF1BookRClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  581.   TF1BookRDblClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  582.   TF1BookObjValueChanged = procedure(Sender: TObject; var  {IDL_None} ObjName: WideString; ObjID: Integer) of object;
  583.   TF1BookObjGotFocus = procedure(Sender: TObject; var  {IDL_None} ObjName: WideString; ObjID: Integer) of object;
  584.   TF1BookObjLostFocus = procedure(Sender: TObject; var  {IDL_None} ObjName: WideString; ObjID: Integer) of object;
  585.   TF1BookValidationFailed = procedure(Sender: TObject; var  {IDL_None} pEntry: WideString; nSheet, nRow, nCol: Integer; var  {IDL_None} pShowMessage: WideString; var  {IDL_None} pAction: Smallint) of object;
  586.  
  587.   TF1Book = class(TOleControl)
  588.   private
  589.     FOnClick: TF1BookClick;
  590.     FOnDblClick: TF1BookDblClick;
  591.     FOnCancelEdit: TNotifyEvent;
  592.     FOnSelChange: TNotifyEvent;
  593.     FOnStartEdit: TF1BookStartEdit;
  594.     FOnEndEdit: TF1BookEndEdit;
  595.     FOnStartRecalc: TNotifyEvent;
  596.     FOnEndRecalc: TNotifyEvent;
  597.     FOnTopLeftChanged: TNotifyEvent;
  598.     FOnObjClick: TF1BookObjClick;
  599.     FOnObjDblClick: TF1BookObjDblClick;
  600.     FOnRClick: TF1BookRClick;
  601.     FOnRDblClick: TF1BookRDblClick;
  602.     FOnObjValueChanged: TF1BookObjValueChanged;
  603.     FOnModified: TNotifyEvent;
  604.     FOnObjGotFocus: TF1BookObjGotFocus;
  605.     FOnObjLostFocus: TF1BookObjLostFocus;
  606.     FOnValidationFailed: TF1BookValidationFailed;
  607.     FIntf: _DVCF1;
  608.     function Get_MouseIcon: IPictureDisp;
  609.     procedure Set_MouseIcon(var Value: IPictureDisp);
  610.     function Get_PrintDevMode: OLE_HANDLE;
  611.     procedure Set_PrintDevMode(var Value: OLE_HANDLE);
  612.     function Get_hWnd: OLE_HANDLE;
  613.     procedure Set_hWnd(var Value: OLE_HANDLE);
  614.     function Get_ColText(nCol: Integer): WideString;
  615.     procedure Set_ColText(nCol: Integer; const Value: WideString);
  616.     function Get_DefinedName(const pName: WideString): WideString;
  617.     procedure Set_DefinedName(const pName: WideString; const Value: WideString);
  618.     function Get_EntryRC(nRow, nCol: Integer): WideString;
  619.     procedure Set_EntryRC(nRow, nCol: Integer; const Value: WideString);
  620.     function Get_FormattedTextRC(nRow, nCol: Integer): WideString;
  621.     procedure Set_FormattedTextRC(nRow, nCol: Integer; const Value: WideString);
  622.     function Get_FormulaRC(nRow, nCol: Integer): WideString;
  623.     procedure Set_FormulaRC(nRow, nCol: Integer; const Value: WideString);
  624.     function Get_LastColForRow(nRow: Integer): Integer;
  625.     procedure Set_LastColForRow(nRow: Integer; Value: Integer);
  626.     function Get_LogicalRC(nRow, nCol: Integer): WordBool;
  627.     procedure Set_LogicalRC(nRow, nCol: Integer; Value: WordBool);
  628.     function Get_NumberRC(nRow, nCol: Integer): Double;
  629.     procedure Set_NumberRC(nRow, nCol: Integer; Value: Double);
  630.     function Get_RowText(nRow: Integer): WideString;
  631.     procedure Set_RowText(nRow: Integer; const Value: WideString);
  632.     function Get_TextRC(nRow, nCol: Integer): WideString;
  633.     procedure Set_TextRC(nRow, nCol: Integer; const Value: WideString);
  634.     function Get_TypeRC(nRow, nCol: Integer): Smallint;
  635.     procedure Set_TypeRC(nRow, nCol: Integer; Value: Smallint);
  636.     function Get_ColWidth(nCol: Integer): Smallint;
  637.     procedure Set_ColWidth(nCol: Integer; Value: Smallint);
  638.     function Get_RowHeight(nRow: Integer): Smallint;
  639.     procedure Set_RowHeight(nRow: Integer; Value: Smallint);
  640.     function Get_DefinedNameByIndex(nName: Integer): WideString;
  641.     procedure Set_DefinedNameByIndex(nName: Integer; const Value: WideString);
  642.     function Get_SheetName(nSheet: Integer): WideString;
  643.     procedure Set_SheetName(nSheet: Integer; const Value: WideString);
  644.     function Get_PaletteEntry(nEntry: Integer): TColor;
  645.     procedure Set_PaletteEntry(nEntry: Integer; Value: TColor);
  646.     function Get_ColWidthTwips(Col: Integer): Smallint;
  647.     procedure Set_ColWidthTwips(Col: Integer; Value: Smallint);
  648.     function Get_ObjItem(ID: Integer; Item: Smallint): WideString;
  649.     procedure Set_ObjItem(ID: Integer; Item: Smallint; const Value: WideString);
  650.     function Get_ObjItems(ID: Integer): WideString;
  651.     procedure Set_ObjItems(ID: Integer; const Value: WideString);
  652.     function Get_ObjName(ID: Integer): WideString;
  653.     procedure Set_ObjName(ID: Integer; const Value: WideString);
  654.     function Get_ObjText(ID: Integer): WideString;
  655.     procedure Set_ObjText(ID: Integer; const Value: WideString);
  656.     function Get_ObjValue(ID: Integer): Smallint;
  657.     procedure Set_ObjValue(ID: Integer; Value: Smallint);
  658.     function Get_ObjVisible(ID: Integer): WordBool;
  659.     procedure Set_ObjVisible(ID: Integer; Value: WordBool);
  660.     function Get_AutoFillItems(Index: Smallint): WideString;
  661.     procedure Set_AutoFillItems(Index: Smallint; const Value: WideString);
  662.     function Get_ColHidden(nCol: Integer): WordBool;
  663.     procedure Set_ColHidden(nCol: Integer; Value: WordBool);
  664.     function Get_RowHidden(nRow: Integer): WordBool;
  665.     procedure Set_RowHidden(nRow: Integer; Value: WordBool);
  666.     function Get_SheetSelected(nSheet: Integer): WordBool;
  667.     procedure Set_SheetSelected(nSheet: Integer; Value: WordBool);
  668.   protected
  669.     procedure InitControlData; override;
  670.     procedure InitControlInterface(const Obj: IUnknown); override;
  671.   public
  672.     procedure EditPasteValues;
  673.     procedure GetAlignment(var  {IDL_None} pHorizontal: Smallint; var  {IDL_None} pWordWrap: WordBool; var  {IDL_None} pVertical,  {IDL_None} pOrientation: Smallint);
  674.     procedure GetBorder(var  {IDL_None} pLeft,  {IDL_None} pRight,  {IDL_None} pTop,  {IDL_None} pBottom,  {IDL_None} pShade: Smallint; var  {IDL_None} pcrLeft,  {IDL_None} pcrRight,  {IDL_None} pcrTop,  {IDL_None} pcrBottom: TColor);
  675.     procedure GetFont(var  {IDL_None} pName: WideString; var  {IDL_None} pSize: Smallint; var  {IDL_None} pBold,  {IDL_None} pItalic,  {IDL_None} pUnderline,  {IDL_None} pStrikeout: WordBool; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pOutline,  {IDL_None} pShadow: WordBool);
  676.     procedure GetLineStyle(var  {IDL_None} pStyle: Smallint; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pWeight: Smallint);
  677.     procedure GetPattern(var  {IDL_None} pPattern: Smallint; var  {IDL_None} pcrFG,  {IDL_None} pcrBG: TColor);
  678.     procedure GetProtection(var  {IDL_None} pLocked,  {IDL_None} pHidden: WordBool);
  679.     procedure GetTabbedText(nR1, nC1, nR2, nC2: Integer; bValuesOnly: WordBool; var  {IDL_None} phText: OLE_HANDLE);
  680.     procedure SetTabbedText(nStartRow, nStartCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; bValuesOnly: WordBool; const pText: WideString);
  681.     procedure AddColPageBreak(nCol: Integer);
  682.     procedure AddPageBreak;
  683.     procedure AddRowPageBreak(nRow: Integer);
  684.     procedure AddSelection(nR1, nC1, nR2, nC2: Integer);
  685.     procedure Attach(const pTitle: WideString);
  686.     procedure AttachToSS(hSrcSS: Integer);
  687.     procedure CalculationDlg;
  688.     procedure CancelEdit;
  689.     procedure CheckRecalc;
  690.     procedure ClearClipboard;
  691.     procedure ClearRange(nR1, nC1, nR2, nC2: Integer; ClearType: Smallint);
  692.     procedure ColorPaletteDlg;
  693.     procedure ColWidthDlg;
  694.     procedure CopyAll(hSrcSS: Integer);
  695.     procedure CopyRange(nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer);
  696.     procedure DefinedNameDlg;
  697.     procedure DeleteDefinedName(const pName: WideString);
  698.     procedure DeleteRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint);
  699.     procedure Draw(hDC: OLE_HANDLE; x, y, cx, cy, nRow, nCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; nFixedRow, nFixedCol, nFixedRows, nFixedCols: Integer);
  700.     procedure EditClear(ClearType: Smallint);
  701.     procedure EditCopy;
  702.     procedure EditCopyDown;
  703.     procedure EditCopyRight;
  704.     procedure EditCut;
  705.     procedure EditDelete(ShiftType: Smallint);
  706.     procedure EditInsert(ShiftType: Smallint);
  707.     procedure EditPaste;
  708.     procedure EndEdit;
  709.     procedure FilePageSetupDlg;
  710.     procedure FilePrint(bShowPrintDlg: WordBool);
  711.     procedure FilePrintSetupDlg;
  712.     procedure FormatAlignmentDlg;
  713.     procedure FormatBorderDlg;
  714.     procedure FormatCurrency0;
  715.     procedure FormatCurrency2;
  716.     procedure FormatDefaultFontDlg;
  717.     procedure FormatFixed;
  718.     procedure FormatFixed2;
  719.     procedure FormatFontDlg;
  720.     procedure FormatFraction;
  721.     procedure FormatGeneral;
  722.     procedure FormatHmmampm;
  723.     procedure FormatMdyy;
  724.     procedure FormatNumberDlg;
  725.     procedure FormatPatternDlg;
  726.     procedure FormatPercent;
  727.     procedure FormatScientific;
  728.     procedure GetActiveCell(var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  729.     procedure GetDefaultFont(var  {IDL_None} pBuf: WideString; var  {IDL_None} pSize: Smallint);
  730.     procedure GetHdrSelection(var  {IDL_None} pTopLeftHdr,  {IDL_None} pRowHdr,  {IDL_None} pColHdr: WordBool);
  731.     procedure GetIteration(var  {IDL_None} pIteration: WordBool; var  {IDL_None} pMaxIterations: Smallint; var  {IDL_None} pMaxChange: Double);
  732.     procedure GetPrintScale(var  {IDL_None} pScale: Smallint; var  {IDL_None} pFitToPage: WordBool; var  {IDL_None} pVPages,  {IDL_None} pHPages: Integer);
  733.     procedure GetSelection(nSelection: Smallint; var  {IDL_None} pR1,  {IDL_None} pC1,  {IDL_None} pR2,  {IDL_None} pC2: Integer);
  734.     procedure GotoDlg;
  735.     procedure HeapMin;
  736.     procedure InitTable;
  737.     procedure InsertRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint);
  738.     procedure LineStyleDlg;
  739.     procedure MoveRange(nR1, nC1, nR2, nC2, nRowOffset, nColOffset: Integer);
  740.     procedure ObjAddItem(ID: Integer; const pItem: WideString);
  741.     procedure ObjAddSelection(ID: Integer);
  742.     procedure ObjBringToFront;
  743.     procedure ObjDeleteItem(ID: Integer; nItem: Smallint);
  744.     procedure ObjGetCell(ID: Integer; var  {IDL_None} pControlCellType: Smallint; var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  745.     procedure ObjGetPos(ID: Integer; var  {IDL_None} pX1,  {IDL_None} pY1,  {IDL_None} pX2,  {IDL_None} pY2: Single);
  746.     procedure ObjGetSelection(nSelection: Smallint; var  {IDL_None} pID: Integer);
  747.     procedure ObjInsertItem(ID: Integer; nItem: Smallint; const pItem: WideString);
  748.     procedure ObjNameDlg;
  749.     procedure ObjNew(ObjType: Smallint; nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer);
  750.     procedure ObjNewPicture(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer; hMF: OLE_HANDLE; nMapMode, nWndExtentX, nWndExtentY: Integer);
  751.     procedure ObjOptionsDlg;
  752.     procedure ObjPosToTwips(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint);
  753.     procedure ObjSendToBack;
  754.     procedure ObjSetCell(ID: Integer; ControlCellType: Smallint; nRow, nCol: Integer);
  755.     procedure ObjSetPicture(ID: Integer; hMF: OLE_HANDLE; nMapMode: Smallint; nWndExtentX, nWndExtentY: Integer);
  756.     procedure ObjSetPos(ID: Integer; nX1, nY1, nX2, nY2: Single);
  757.     procedure ObjSetSelection(ID: Integer);
  758.     procedure OpenFileDlg(const pTitle: WideString; hWndParent: OLE_HANDLE; var  {IDL_None} pBuf: WideString);
  759.     procedure ProtectionDlg;
  760.     procedure RangeToTwips(nRow1, nCol1, nRow2, nCol2: Integer; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint);
  761.     procedure Read(const pPathName: WideString; var  {IDL_None} pFileType: Smallint);
  762.     procedure ReadFromBlob(hBlob: OLE_HANDLE; nReservedBytes: Smallint);
  763.     procedure Recalc;
  764.     procedure RemoveColPageBreak(nCol: Integer);
  765.     procedure RemovePageBreak;
  766.     procedure RemoveRowPageBreak(nRow: Integer);
  767.     procedure RowHeightDlg;
  768.     procedure SaveFileDlg(const pTitle: WideString; var  {IDL_None} pBuf: WideString; var  {IDL_None} pFileType: Smallint);
  769.     procedure SaveWindowInfo;
  770.     procedure SetActiveCell(nRow, nCol: Integer);
  771.     procedure SetAlignment(HAlign: Smallint; bWordWrap: WordBool; VAlign, nOrientation: Smallint);
  772.     procedure SetBorder(nOutline, nLeft, nRight, nTop, nBottom, nShade: Smallint; crOutline, crLeft, crRight, crTop, crBottom: TColor);
  773.     procedure SetColWidth(nC1, nC2: Integer; nWidth: Smallint; bDefColWidth: WordBool);
  774.     procedure SetColWidthAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool);
  775.     procedure SetDefaultFont(const pName: WideString; nSize: Smallint);
  776.     procedure SetFont(const pName: WideString; nSize: Smallint; bBold, bItalic, bUnderline, bStrikeout: WordBool; crColor: TColor; bOutline, bShadow: WordBool);
  777.     procedure SetHdrSelection(bTopLeftHdr, bRowHdr, bColHdr: WordBool);
  778.     procedure SetIteration(bIteration: WordBool; nMaxIterations: Smallint; nMaxChange: Double);
  779.     procedure SetLineStyle(nStyle: Smallint; crColor: TColor; nWeight: Smallint);
  780.     procedure SetPattern(nPattern: Smallint; crFG, crBG: TColor);
  781.     procedure SetPrintAreaFromSelection;
  782.     procedure SetPrintScale(nScale: Smallint; bFitToPage: WordBool; nVPages, nHPages: Smallint);
  783.     procedure SetPrintTitlesFromSelection;
  784.     procedure SetProtection(bLocked, bHidden: WordBool);
  785.     procedure SetRowHeight(nR1, nR2: Integer; nHeight: Smallint; bDefRowHeight: WordBool);
  786.     procedure SetRowHeightAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool);
  787.     procedure SetSelection(nR1, nC1, nR2, nC2: Integer);
  788.     procedure ShowActiveCell;
  789.     procedure Sort3(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; nKey1, nKey2, nKey3: Integer);
  790.     procedure SortDlg;
  791.     procedure StartEdit(bClear, bInCellEditFocus, bArrowsExitEditMode: WordBool);
  792.     procedure SwapTables(hSS2: Integer);
  793.     procedure TransactCommit;
  794.     procedure TransactRollback;
  795.     procedure TransactStart;
  796.     procedure TwipsToRC(x, y: Integer; var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  797.     procedure SSUpdate;
  798.     function SSVersion: Smallint;
  799.     procedure Write(const pPathName: WideString; FileType: Smallint);
  800.     procedure WriteToBlob(var  {IDL_None} phBlob: OLE_HANDLE; nReservedBytes: Smallint);
  801.     procedure SetRowHidden(nRow1, nRow2: Integer; bHidden: WordBool);
  802.     procedure SetColHidden(nCol1, nCol2: Integer; bHidden: WordBool);
  803.     procedure SetColWidthTwips(nCol1, nCol2, nWidth: Integer; bDefColWidth: WordBool);
  804.     procedure EditInsertSheets;
  805.     procedure EditDeleteSheets;
  806.     procedure InsertSheets(nSheet, nSheets: Integer);
  807.     procedure DeleteSheets(nSheet, nSheets: Integer);
  808.     procedure Refresh;
  809.     function NextColPageBreak(Col: Integer): Integer;
  810.     function NextRowPageBreak(Row: Integer): Integer;
  811.     function ObjFirstID: Integer;
  812.     function ObjNextID(ID: Integer): Integer;
  813.     function ObjGetItemCount(ID: Integer): Smallint;
  814.     function ObjGetType(ID: Integer): Smallint;
  815.     function ObjGetSelectionCount: Smallint;
  816.     function FormatRCNr(Row, Col: Integer; DoAbsolute: WordBool): WideString;
  817.     function SS: Integer;
  818.     function ErrorNumberToText(SSError: Integer): WideString;
  819.     function ObjNameToID(const Name: WideString): Integer;
  820.     function DefinedNameCount: Integer;
  821.     procedure ValidationRuleDlg;
  822.     procedure SetValidationRule(const Rule, Text: WideString);
  823.     procedure GetValidationRule(var  {IDL_None} Rule,  {IDL_None} Text: WideString);
  824.     function AutoFillItemsCount: Smallint;
  825.     procedure CopyRangeEx(nDstSheet, nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcSheet, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer);
  826.     procedure Sort(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; Keys: OleVariant);
  827.     procedure DeleteAutoFillItems(nIndex: Smallint);
  828.     procedure ODBCConnect(var  {IDL_None} pConnect: WideString; bShowErrors: WordBool; var  {IDL_None} pRetCode: Smallint);
  829.     procedure ODBCDisconnect;
  830.     procedure ODBCQuery(var  {IDL_None} pQuery: WideString; nRow, nCol: Integer; bForceShowDlg: WordBool; var  {IDL_None} pSetColNames,  {IDL_None} pSetColFormats,  {IDL_None} pSetColWidths,  {IDL_None} pSetMaxRC: WordBool; var  {IDL_None} pRetCode: Smallint);
  831.     procedure LaunchDesigner;
  832.     procedure AboutBox;
  833.     property ControlInterface: _DVCF1 read FIntf;
  834.     property ColText[nCol: Integer]: WideString read Get_ColText write Set_ColText;
  835.     property DefinedName[const pName: WideString]: WideString read Get_DefinedName write Set_DefinedName;
  836.     property EntryRC[nRow, nCol: Integer]: WideString read Get_EntryRC write Set_EntryRC;
  837.     property FormattedTextRC[nRow, nCol: Integer]: WideString read Get_FormattedTextRC write Set_FormattedTextRC;
  838.     property FormulaRC[nRow, nCol: Integer]: WideString read Get_FormulaRC write Set_FormulaRC;
  839.     property LastColForRow[nRow: Integer]: Integer read Get_LastColForRow write Set_LastColForRow;
  840.     property LogicalRC[nRow, nCol: Integer]: WordBool read Get_LogicalRC write Set_LogicalRC;
  841.     property NumberRC[nRow, nCol: Integer]: Double read Get_NumberRC write Set_NumberRC;
  842.     property RowText[nRow: Integer]: WideString read Get_RowText write Set_RowText;
  843.     property TextRC[nRow, nCol: Integer]: WideString read Get_TextRC write Set_TextRC;
  844.     property TypeRC[nRow, nCol: Integer]: Smallint read Get_TypeRC write Set_TypeRC;
  845.     property ColWidth[nCol: Integer]: Smallint read Get_ColWidth write Set_ColWidth;
  846.     property RowHeight[nRow: Integer]: Smallint read Get_RowHeight write Set_RowHeight;
  847.     property DefinedNameByIndex[nName: Integer]: WideString read Get_DefinedNameByIndex write Set_DefinedNameByIndex;
  848.     property SheetName[nSheet: Integer]: WideString read Get_SheetName write Set_SheetName;
  849.     property PaletteEntry[nEntry: Integer]: TColor read Get_PaletteEntry write Set_PaletteEntry;
  850.     property ColWidthTwips[Col: Integer]: Smallint read Get_ColWidthTwips write Set_ColWidthTwips;
  851.     property ObjItem[ID: Integer; Item: Smallint]: WideString read Get_ObjItem write Set_ObjItem;
  852.     property ObjItems[ID: Integer]: WideString read Get_ObjItems write Set_ObjItems;
  853.     property ObjName[ID: Integer]: WideString read Get_ObjName write Set_ObjName;
  854.     property ObjText[ID: Integer]: WideString read Get_ObjText write Set_ObjText;
  855.     property ObjValue[ID: Integer]: Smallint read Get_ObjValue write Set_ObjValue;
  856.     property ObjVisible[ID: Integer]: WordBool read Get_ObjVisible write Set_ObjVisible;
  857.     property AutoFillItems[Index: Smallint]: WideString read Get_AutoFillItems write Set_AutoFillItems;
  858.     property ColHidden[nCol: Integer]: WordBool read Get_ColHidden write Set_ColHidden;
  859.     property RowHidden[nRow: Integer]: WordBool read Get_RowHidden write Set_RowHidden;
  860.     property SheetSelected[nSheet: Integer]: WordBool read Get_SheetSelected write Set_SheetSelected;
  861.   published
  862.     property TabStop;
  863.     property DragCursor;
  864.     property DragMode;
  865.     property ParentShowHint;
  866.     property PopupMenu;
  867.     property ShowHint;
  868.     property TabOrder;
  869.     property Visible;
  870.     property OnDragDrop;
  871.     property OnDragOver;
  872.     property OnEndDrag;
  873.     property OnEnter;
  874.     property OnExit;
  875.     property OnStartDrag;
  876.     property OnMouseUp;
  877.     property OnMouseMove;
  878.     property OnMouseDown;
  879.     property OnKeyUp;
  880.     property OnKeyPress;
  881.     property OnKeyDown;
  882.     property BackColor: TColor index 3 read GetTColorProp write SetTColorProp stored False;
  883.     property Col: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  884.     property Row: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  885.     property ShowHScrollBar: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  886.     property Text: WideString index 7 read GetWideStringProp write SetWideStringProp stored False;
  887.     property Number: Double index 8 read GetDoubleProp write SetDoubleProp stored False;
  888.     property Formula: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  889.     property FixedCol: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  890.     property FixedCols: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  891.     property FixedRow: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  892.     property FixedRows: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  893.     property ShowGridLines: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  894.     property ShowRowHeading: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  895.     property ShowSelections: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  896.     property LeftCol: Integer index 17 read GetIntegerProp write SetIntegerProp stored False;
  897.     property MaxCol: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  898.     property MaxRow: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  899.     property TopRow: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  900.     property AllowResize: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
  901.     property AllowSelections: WordBool index 22 read GetWordBoolProp write SetWordBoolProp stored False;
  902.     property AllowFormulas: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  903.     property AllowInCellEditing: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  904.     property ShowVScrollBar: Smallint index 25 read GetSmallintProp write SetSmallintProp stored False;
  905.     property AllowFillRange: WordBool index 26 read GetWordBoolProp write SetWordBoolProp stored False;
  906.     property AllowMoveRange: WordBool index 27 read GetWordBoolProp write SetWordBoolProp stored False;
  907.     property SelStartCol: Integer index 28 read GetIntegerProp write SetIntegerProp stored False;
  908.     property SelStartRow: Integer index 29 read GetIntegerProp write SetIntegerProp stored False;
  909.     property SelEndCol: Integer index 30 read GetIntegerProp write SetIntegerProp stored False;
  910.     property SelEndRow: Integer index 31 read GetIntegerProp write SetIntegerProp stored False;
  911.     property ExtraColor: TColor index 32 read GetTColorProp write SetTColorProp stored False;
  912.     property FileName: WideString index 33 read GetWideStringProp write SetWideStringProp stored False;
  913.     property AutoRecalc: WordBool index 34 read GetWordBoolProp write SetWordBoolProp stored False;
  914.     property PrintGridLines: WordBool index 35 read GetWordBoolProp write SetWordBoolProp stored False;
  915.     property PrintRowHeading: WordBool index 36 read GetWordBoolProp write SetWordBoolProp stored False;
  916.     property PrintHCenter: WordBool index 37 read GetWordBoolProp write SetWordBoolProp stored False;
  917.     property PrintVCenter: WordBool index 38 read GetWordBoolProp write SetWordBoolProp stored False;
  918.     property PrintLeftToRight: WordBool index 39 read GetWordBoolProp write SetWordBoolProp stored False;
  919.     property PrintHeader: WideString index 40 read GetWideStringProp write SetWideStringProp stored False;
  920.     property PrintFooter: WideString index 41 read GetWideStringProp write SetWideStringProp stored False;
  921.     property PrintLeftMargin: Double index 42 read GetDoubleProp write SetDoubleProp stored False;
  922.     property PrintTopMargin: Double index 43 read GetDoubleProp write SetDoubleProp stored False;
  923.     property PrintRightMargin: Double index 44 read GetDoubleProp write SetDoubleProp stored False;
  924.     property PrintBottomMargin: Double index 45 read GetDoubleProp write SetDoubleProp stored False;
  925.     property PrintArea: WideString index 46 read GetWideStringProp write SetWideStringProp stored False;
  926.     property PrintTitles: WideString index 47 read GetWideStringProp write SetWideStringProp stored False;
  927.     property PrintNoColor: WordBool index 48 read GetWordBoolProp write SetWordBoolProp stored False;
  928.     property Selection: WideString index 49 read GetWideStringProp write SetWideStringProp stored False;
  929.     property TableName: WideString index 50 read GetWideStringProp write SetWideStringProp stored False;
  930.     property DoCancelEdit: WordBool index 51 read GetWordBoolProp write SetWordBoolProp stored False;
  931.     property DoSelChange: WordBool index 52 read GetWordBoolProp write SetWordBoolProp stored False;
  932.     property DoStartEdit: WordBool index 53 read GetWordBoolProp write SetWordBoolProp stored False;
  933.     property DoEndEdit: WordBool index 54 read GetWordBoolProp write SetWordBoolProp stored False;
  934.     property DoStartRecalc: WordBool index 55 read GetWordBoolProp write SetWordBoolProp stored False;
  935.     property DoEndRecalc: WordBool index 56 read GetWordBoolProp write SetWordBoolProp stored False;
  936.     property DoClick: WordBool index 57 read GetWordBoolProp write SetWordBoolProp stored False;
  937.     property DoDblClick: WordBool index 58 read GetWordBoolProp write SetWordBoolProp stored False;
  938.     property ShowColHeading: WordBool index 59 read GetWordBoolProp write SetWordBoolProp stored False;
  939.     property PrintColHeading: WordBool index 60 read GetWordBoolProp write SetWordBoolProp stored False;
  940.     property Entry: WideString index 61 read GetWideStringProp write SetWideStringProp stored False;
  941.     property Repaint: WordBool index 62 read GetWordBoolProp write SetWordBoolProp stored False;
  942.     property AllowArrows: WordBool index 63 read GetWordBoolProp write SetWordBoolProp stored False;
  943.     property AllowTabs: WordBool index 64 read GetWordBoolProp write SetWordBoolProp stored False;
  944.     property FormattedText: WideString index 65 read GetWideStringProp write SetWideStringProp stored False;
  945.     property RowMode: WordBool index 66 read GetWordBoolProp write SetWordBoolProp stored False;
  946.     property AllowDelete: WordBool index 67 read GetWordBoolProp write SetWordBoolProp stored False;
  947.     property EnableProtection: WordBool index 68 read GetWordBoolProp write SetWordBoolProp stored False;
  948.     property MinCol: Integer index 69 read GetIntegerProp write SetIntegerProp stored False;
  949.     property MinRow: Integer index 70 read GetIntegerProp write SetIntegerProp stored False;
  950.     property DoTopLeftChanged: WordBool index 71 read GetWordBoolProp write SetWordBoolProp stored False;
  951.     property AllowEditHeaders: WordBool index 72 read GetWordBoolProp write SetWordBoolProp stored False;
  952.     property DoObjClick: WordBool index 73 read GetWordBoolProp write SetWordBoolProp stored False;
  953.     property DoObjDblClick: WordBool index 74 read GetWordBoolProp write SetWordBoolProp stored False;
  954.     property AllowObjSelections: WordBool index 75 read GetWordBoolProp write SetWordBoolProp stored False;
  955.     property DoRClick: WordBool index 76 read GetWordBoolProp write SetWordBoolProp stored False;
  956.     property DoRDblClick: WordBool index 77 read GetWordBoolProp write SetWordBoolProp stored False;
  957.     property Clip: WideString index 78 read GetWideStringProp write SetWideStringProp stored False;
  958.     property ClipValues: WideString index 79 read GetWideStringProp write SetWideStringProp stored False;
  959.     property PrintLandscape: WordBool index 80 read GetWordBoolProp write SetWordBoolProp stored False;
  960.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  961.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  962.     property AppName: WideString index 81 read GetWideStringProp write SetWideStringProp stored False;
  963.     property HdrHeight: Smallint index 82 read GetSmallintProp write SetSmallintProp stored False;
  964.     property HdrWidth: Smallint index 83 read GetSmallintProp write SetSmallintProp stored False;
  965.     property NumberFormat: WideString index 84 read GetWideStringProp write SetWideStringProp stored False;
  966.     property TopLeftText: WideString index 85 read GetWideStringProp write SetWideStringProp stored False;
  967.     property EnterMovesDown: WordBool index 86 read GetWordBoolProp write SetWordBoolProp stored False;
  968.     property LastCol: Integer index 87 read GetIntegerProp write SetIntegerProp stored False;
  969.     property LastRow: Integer index 88 read GetIntegerProp write SetIntegerProp stored False;
  970.     property Logical: WordBool index 89 read GetWordBoolProp write SetWordBoolProp stored False;
  971.     property Mode: Smallint index 90 read GetSmallintProp write SetSmallintProp stored False;
  972.     property PolyEditMode: Smallint index 91 read GetSmallintProp write SetSmallintProp stored False;
  973.     property ViewScale: Smallint index 92 read GetSmallintProp write SetSmallintProp stored False;
  974.     property SelectionCount: Smallint index 93 read GetSmallintProp write SetSmallintProp stored False;
  975.     property Title: WideString index 94 read GetWideStringProp write SetWideStringProp stored False;
  976.     property Type_: Smallint index 95 read GetSmallintProp write SetSmallintProp stored False;
  977.     property ShowFormulas: WordBool index 96 read GetWordBoolProp write SetWordBoolProp stored False;
  978.     property ShowZeroValues: WordBool index 97 read GetWordBoolProp write SetWordBoolProp stored False;
  979.     property MousePointer: Smallint index 2 read GetSmallintProp write SetSmallintProp stored False;
  980.     property MouseIcon: IPictureDisp read Get_MouseIcon write Set_MouseIcon stored False;
  981.     property DoObjValueChanged: WordBool index 99 read GetWordBoolProp write SetWordBoolProp stored False;
  982.     property ScrollToLastRC: WordBool index 100 read GetWordBoolProp write SetWordBoolProp stored False;
  983.     property Modified: WordBool index 101 read GetWordBoolProp write SetWordBoolProp stored False;
  984.     property DoObjGotFocus: WordBool index 102 read GetWordBoolProp write SetWordBoolProp stored False;
  985.     property DoObjLostFocus: WordBool index 103 read GetWordBoolProp write SetWordBoolProp stored False;
  986.     property PrintDevMode: OLE_HANDLE read Get_PrintDevMode write Set_PrintDevMode stored False;
  987.     property NumSheets: Integer index 105 read GetIntegerProp write SetIntegerProp stored False;
  988.     property Sheet: Integer index 106 read GetIntegerProp write SetIntegerProp stored False;
  989.     property ColWidthUnits: Smallint index 107 read GetSmallintProp write SetSmallintProp stored False;
  990.     property ShowTypeMarkers: WordBool index 108 read GetWordBoolProp write SetWordBoolProp stored False;
  991.     property ShowTabs: Smallint index 109 read GetSmallintProp write SetSmallintProp stored False;
  992.     property ShowEditBar: WordBool index 110 read GetWordBoolProp write SetWordBoolProp stored False;
  993.     property ShowEditBarCellRef: WordBool index 111 read GetWordBoolProp write SetWordBoolProp stored False;
  994.     property AllowDesigner: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  995.     property hWnd: OLE_HANDLE read Get_hWnd write Set_hWnd stored False;
  996.     property AllowAutoFill: WordBool index 112 read GetWordBoolProp write SetWordBoolProp stored False;
  997.     property OnClick: TF1BookClick read FOnClick write FOnClick;
  998.     property OnDblClick: TF1BookDblClick read FOnDblClick write FOnDblClick;
  999.     property OnCancelEdit: TNotifyEvent read FOnCancelEdit write FOnCancelEdit;
  1000.     property OnSelChange: TNotifyEvent read FOnSelChange write FOnSelChange;
  1001.     property OnStartEdit: TF1BookStartEdit read FOnStartEdit write FOnStartEdit;
  1002.     property OnEndEdit: TF1BookEndEdit read FOnEndEdit write FOnEndEdit;
  1003.     property OnStartRecalc: TNotifyEvent read FOnStartRecalc write FOnStartRecalc;
  1004.     property OnEndRecalc: TNotifyEvent read FOnEndRecalc write FOnEndRecalc;
  1005.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  1006.     property OnObjClick: TF1BookObjClick read FOnObjClick write FOnObjClick;
  1007.     property OnObjDblClick: TF1BookObjDblClick read FOnObjDblClick write FOnObjDblClick;
  1008.     property OnRClick: TF1BookRClick read FOnRClick write FOnRClick;
  1009.     property OnRDblClick: TF1BookRDblClick read FOnRDblClick write FOnRDblClick;
  1010.     property OnObjValueChanged: TF1BookObjValueChanged read FOnObjValueChanged write FOnObjValueChanged;
  1011.     property OnModified: TNotifyEvent read FOnModified write FOnModified;
  1012.     property OnObjGotFocus: TF1BookObjGotFocus read FOnObjGotFocus write FOnObjGotFocus;
  1013.     property OnObjLostFocus: TF1BookObjLostFocus read FOnObjLostFocus write FOnObjLostFocus;
  1014.     property OnValidationFailed: TF1BookValidationFailed read FOnValidationFailed write FOnValidationFailed;
  1015.   end;
  1016.  
  1017. procedure Register;
  1018.  
  1019. implementation
  1020.  
  1021. uses ComObj;
  1022.  
  1023. procedure TF1Book.InitControlData;
  1024. const
  1025.   CEventDispIDs: array[0..17] of Integer = (
  1026.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  1027.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  1028.     $0000000D, $0000000E, $0000000F, $00000010, $00000011, $00000012);
  1029.   CLicenseKey: array[0..42] of Word = (
  1030.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  1031.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0056,
  1032.     $0069, $0073, $0075, $0061, $006C, $0020, $0043, $006F, $006D, $0070,
  1033.     $006F, $006E, $0065, $006E, $0074, $0073, $002C, $0020, $0049, $006E,
  1034.     $0063, $002E, $0000);
  1035.   CControlData: TControlData = (
  1036.     ClassID: '{042BADC5-5E58-11CE-B610-524153480001}';
  1037.     EventIID: '{042BADC7-5E58-11CE-B610-524153480001}';
  1038.     EventCount: 18;
  1039.     EventDispIDs: @CEventDispIDs;
  1040.     LicenseKey: @CLicenseKey;
  1041.     Flags: $00000008;
  1042.     Version: 300;
  1043.     FontCount: 0;
  1044.     FontIDs: nil);
  1045. begin
  1046.   ControlData := @CControlData;
  1047. end;
  1048.  
  1049. procedure TF1Book.InitControlInterface(const Obj: IUnknown);
  1050. begin
  1051.   FIntf := Obj as _DVCF1;
  1052. end;
  1053.  
  1054. procedure TF1Book.EditPasteValues;
  1055. begin
  1056.   ControlInterface.EditPasteValues;
  1057. end;
  1058.  
  1059. procedure TF1Book.GetAlignment(var  {IDL_None} pHorizontal: Smallint; var  {IDL_None} pWordWrap: WordBool; var  {IDL_None} pVertical,  {IDL_None} pOrientation: Smallint);
  1060. begin
  1061.   ControlInterface.GetAlignment(pHorizontal, pWordWrap, pVertical, pOrientation);
  1062. end;
  1063.  
  1064. procedure TF1Book.GetBorder(var  {IDL_None} pLeft,  {IDL_None} pRight,  {IDL_None} pTop,  {IDL_None} pBottom,  {IDL_None} pShade: Smallint; var  {IDL_None} pcrLeft,  {IDL_None} pcrRight,  {IDL_None} pcrTop,  {IDL_None} pcrBottom: TColor);
  1065. begin
  1066.   ControlInterface.GetBorder(pLeft, pRight, pTop, pBottom, pShade, pcrLeft, pcrRight, pcrTop, pcrBottom);
  1067. end;
  1068.  
  1069. procedure TF1Book.GetFont(var  {IDL_None} pName: WideString; var  {IDL_None} pSize: Smallint; var  {IDL_None} pBold,  {IDL_None} pItalic,  {IDL_None} pUnderline,  {IDL_None} pStrikeout: WordBool; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pOutline,  {IDL_None} pShadow: WordBool);
  1070. begin
  1071.   ControlInterface.GetFont(pName, pSize, pBold, pItalic, pUnderline, pStrikeout, pcrColor, pOutline, pShadow);
  1072. end;
  1073.  
  1074. procedure TF1Book.GetLineStyle(var  {IDL_None} pStyle: Smallint; var  {IDL_None} pcrColor: TColor; var  {IDL_None} pWeight: Smallint);
  1075. begin
  1076.   ControlInterface.GetLineStyle(pStyle, pcrColor, pWeight);
  1077. end;
  1078.  
  1079. procedure TF1Book.GetPattern(var  {IDL_None} pPattern: Smallint; var  {IDL_None} pcrFG,  {IDL_None} pcrBG: TColor);
  1080. begin
  1081.   ControlInterface.GetPattern(pPattern, pcrFG, pcrBG);
  1082. end;
  1083.  
  1084. procedure TF1Book.GetProtection(var  {IDL_None} pLocked,  {IDL_None} pHidden: WordBool);
  1085. begin
  1086.   ControlInterface.GetProtection(pLocked, pHidden);
  1087. end;
  1088.  
  1089. procedure TF1Book.GetTabbedText(nR1, nC1, nR2, nC2: Integer; bValuesOnly: WordBool; var  {IDL_None} phText: OLE_HANDLE);
  1090. begin
  1091.   ControlInterface.GetTabbedText(nR1, nC1, nR2, nC2, bValuesOnly, phText);
  1092. end;
  1093.  
  1094. procedure TF1Book.SetTabbedText(nStartRow, nStartCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; bValuesOnly: WordBool; const pText: WideString);
  1095. begin
  1096.   ControlInterface.SetTabbedText(nStartRow, nStartCol, pRows, pCols, bValuesOnly, pText);
  1097. end;
  1098.  
  1099. procedure TF1Book.AddColPageBreak(nCol: Integer);
  1100. begin
  1101.   ControlInterface.AddColPageBreak(nCol);
  1102. end;
  1103.  
  1104. procedure TF1Book.AddPageBreak;
  1105. begin
  1106.   ControlInterface.AddPageBreak;
  1107. end;
  1108.  
  1109. procedure TF1Book.AddRowPageBreak(nRow: Integer);
  1110. begin
  1111.   ControlInterface.AddRowPageBreak(nRow);
  1112. end;
  1113.  
  1114. procedure TF1Book.AddSelection(nR1, nC1, nR2, nC2: Integer);
  1115. begin
  1116.   ControlInterface.AddSelection(nR1, nC1, nR2, nC2);
  1117. end;
  1118.  
  1119. procedure TF1Book.Attach(const pTitle: WideString);
  1120. begin
  1121.   ControlInterface.Attach(pTitle);
  1122. end;
  1123.  
  1124. procedure TF1Book.AttachToSS(hSrcSS: Integer);
  1125. begin
  1126.   ControlInterface.AttachToSS(hSrcSS);
  1127. end;
  1128.  
  1129. procedure TF1Book.CalculationDlg;
  1130. begin
  1131.   ControlInterface.CalculationDlg;
  1132. end;
  1133.  
  1134. procedure TF1Book.CancelEdit;
  1135. begin
  1136.   ControlInterface.CancelEdit;
  1137. end;
  1138.  
  1139. procedure TF1Book.CheckRecalc;
  1140. begin
  1141.   ControlInterface.CheckRecalc;
  1142. end;
  1143.  
  1144. procedure TF1Book.ClearClipboard;
  1145. begin
  1146.   ControlInterface.ClearClipboard;
  1147. end;
  1148.  
  1149. procedure TF1Book.ClearRange(nR1, nC1, nR2, nC2: Integer; ClearType: Smallint);
  1150. begin
  1151.   ControlInterface.ClearRange(nR1, nC1, nR2, nC2, ClearType);
  1152. end;
  1153.  
  1154. procedure TF1Book.ColorPaletteDlg;
  1155. begin
  1156.   ControlInterface.ColorPaletteDlg;
  1157. end;
  1158.  
  1159. procedure TF1Book.ColWidthDlg;
  1160. begin
  1161.   ControlInterface.ColWidthDlg;
  1162. end;
  1163.  
  1164. procedure TF1Book.CopyAll(hSrcSS: Integer);
  1165. begin
  1166.   ControlInterface.CopyAll(hSrcSS);
  1167. end;
  1168.  
  1169. procedure TF1Book.CopyRange(nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer);
  1170. begin
  1171.   ControlInterface.CopyRange(nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcR1, nSrcC1, nSrcR2, nSrcC2);
  1172. end;
  1173.  
  1174. procedure TF1Book.DefinedNameDlg;
  1175. begin
  1176.   ControlInterface.DefinedNameDlg;
  1177. end;
  1178.  
  1179. procedure TF1Book.DeleteDefinedName(const pName: WideString);
  1180. begin
  1181.   ControlInterface.DeleteDefinedName(pName);
  1182. end;
  1183.  
  1184. procedure TF1Book.DeleteRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint);
  1185. begin
  1186.   ControlInterface.DeleteRange(nR1, nC1, nR2, nC2, ShiftType);
  1187. end;
  1188.  
  1189. procedure TF1Book.Draw(hDC: OLE_HANDLE; x, y, cx, cy, nRow, nCol: Integer; var  {IDL_None} pRows,  {IDL_None} pCols: Integer; nFixedRow, nFixedCol, nFixedRows, nFixedCols: Integer);
  1190. begin
  1191.   ControlInterface.Draw(hDC, x, y, cx, cy, nRow, nCol, pRows, pCols, nFixedRow, nFixedCol, nFixedRows, nFixedCols);
  1192. end;
  1193.  
  1194. procedure TF1Book.EditClear(ClearType: Smallint);
  1195. begin
  1196.   ControlInterface.EditClear(ClearType);
  1197. end;
  1198.  
  1199. procedure TF1Book.EditCopy;
  1200. begin
  1201.   ControlInterface.EditCopy;
  1202. end;
  1203.  
  1204. procedure TF1Book.EditCopyDown;
  1205. begin
  1206.   ControlInterface.EditCopyDown;
  1207. end;
  1208.  
  1209. procedure TF1Book.EditCopyRight;
  1210. begin
  1211.   ControlInterface.EditCopyRight;
  1212. end;
  1213.  
  1214. procedure TF1Book.EditCut;
  1215. begin
  1216.   ControlInterface.EditCut;
  1217. end;
  1218.  
  1219. procedure TF1Book.EditDelete(ShiftType: Smallint);
  1220. begin
  1221.   ControlInterface.EditDelete(ShiftType);
  1222. end;
  1223.  
  1224. procedure TF1Book.EditInsert(ShiftType: Smallint);
  1225. begin
  1226.   ControlInterface.EditInsert(ShiftType);
  1227. end;
  1228.  
  1229. procedure TF1Book.EditPaste;
  1230. begin
  1231.   ControlInterface.EditPaste;
  1232. end;
  1233.  
  1234. procedure TF1Book.EndEdit;
  1235. begin
  1236.   ControlInterface.EndEdit;
  1237. end;
  1238.  
  1239. procedure TF1Book.FilePageSetupDlg;
  1240. begin
  1241.   ControlInterface.FilePageSetupDlg;
  1242. end;
  1243.  
  1244. procedure TF1Book.FilePrint(bShowPrintDlg: WordBool);
  1245. begin
  1246.   ControlInterface.FilePrint(bShowPrintDlg);
  1247. end;
  1248.  
  1249. procedure TF1Book.FilePrintSetupDlg;
  1250. begin
  1251.   ControlInterface.FilePrintSetupDlg;
  1252. end;
  1253.  
  1254. procedure TF1Book.FormatAlignmentDlg;
  1255. begin
  1256.   ControlInterface.FormatAlignmentDlg;
  1257. end;
  1258.  
  1259. procedure TF1Book.FormatBorderDlg;
  1260. begin
  1261.   ControlInterface.FormatBorderDlg;
  1262. end;
  1263.  
  1264. procedure TF1Book.FormatCurrency0;
  1265. begin
  1266.   ControlInterface.FormatCurrency0;
  1267. end;
  1268.  
  1269. procedure TF1Book.FormatCurrency2;
  1270. begin
  1271.   ControlInterface.FormatCurrency2;
  1272. end;
  1273.  
  1274. procedure TF1Book.FormatDefaultFontDlg;
  1275. begin
  1276.   ControlInterface.FormatDefaultFontDlg;
  1277. end;
  1278.  
  1279. procedure TF1Book.FormatFixed;
  1280. begin
  1281.   ControlInterface.FormatFixed;
  1282. end;
  1283.  
  1284. procedure TF1Book.FormatFixed2;
  1285. begin
  1286.   ControlInterface.FormatFixed2;
  1287. end;
  1288.  
  1289. procedure TF1Book.FormatFontDlg;
  1290. begin
  1291.   ControlInterface.FormatFontDlg;
  1292. end;
  1293.  
  1294. procedure TF1Book.FormatFraction;
  1295. begin
  1296.   ControlInterface.FormatFraction;
  1297. end;
  1298.  
  1299. procedure TF1Book.FormatGeneral;
  1300. begin
  1301.   ControlInterface.FormatGeneral;
  1302. end;
  1303.  
  1304. procedure TF1Book.FormatHmmampm;
  1305. begin
  1306.   ControlInterface.FormatHmmampm;
  1307. end;
  1308.  
  1309. procedure TF1Book.FormatMdyy;
  1310. begin
  1311.   ControlInterface.FormatMdyy;
  1312. end;
  1313.  
  1314. procedure TF1Book.FormatNumberDlg;
  1315. begin
  1316.   ControlInterface.FormatNumberDlg;
  1317. end;
  1318.  
  1319. procedure TF1Book.FormatPatternDlg;
  1320. begin
  1321.   ControlInterface.FormatPatternDlg;
  1322. end;
  1323.  
  1324. procedure TF1Book.FormatPercent;
  1325. begin
  1326.   ControlInterface.FormatPercent;
  1327. end;
  1328.  
  1329. procedure TF1Book.FormatScientific;
  1330. begin
  1331.   ControlInterface.FormatScientific;
  1332. end;
  1333.  
  1334. procedure TF1Book.GetActiveCell(var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  1335. begin
  1336.   ControlInterface.GetActiveCell(pRow, pCol);
  1337. end;
  1338.  
  1339. procedure TF1Book.GetDefaultFont(var  {IDL_None} pBuf: WideString; var  {IDL_None} pSize: Smallint);
  1340. begin
  1341.   ControlInterface.GetDefaultFont(pBuf, pSize);
  1342. end;
  1343.  
  1344. procedure TF1Book.GetHdrSelection(var  {IDL_None} pTopLeftHdr,  {IDL_None} pRowHdr,  {IDL_None} pColHdr: WordBool);
  1345. begin
  1346.   ControlInterface.GetHdrSelection(pTopLeftHdr, pRowHdr, pColHdr);
  1347. end;
  1348.  
  1349. procedure TF1Book.GetIteration(var  {IDL_None} pIteration: WordBool; var  {IDL_None} pMaxIterations: Smallint; var  {IDL_None} pMaxChange: Double);
  1350. begin
  1351.   ControlInterface.GetIteration(pIteration, pMaxIterations, pMaxChange);
  1352. end;
  1353.  
  1354. procedure TF1Book.GetPrintScale(var  {IDL_None} pScale: Smallint; var  {IDL_None} pFitToPage: WordBool; var  {IDL_None} pVPages,  {IDL_None} pHPages: Integer);
  1355. begin
  1356.   ControlInterface.GetPrintScale(pScale, pFitToPage, pVPages, pHPages);
  1357. end;
  1358.  
  1359. procedure TF1Book.GetSelection(nSelection: Smallint; var  {IDL_None} pR1,  {IDL_None} pC1,  {IDL_None} pR2,  {IDL_None} pC2: Integer);
  1360. begin
  1361.   ControlInterface.GetSelection(nSelection, pR1, pC1, pR2, pC2);
  1362. end;
  1363.  
  1364. procedure TF1Book.GotoDlg;
  1365. begin
  1366.   ControlInterface.GotoDlg;
  1367. end;
  1368.  
  1369. procedure TF1Book.HeapMin;
  1370. begin
  1371.   ControlInterface.HeapMin;
  1372. end;
  1373.  
  1374. procedure TF1Book.InitTable;
  1375. begin
  1376.   ControlInterface.InitTable;
  1377. end;
  1378.  
  1379. procedure TF1Book.InsertRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint);
  1380. begin
  1381.   ControlInterface.InsertRange(nR1, nC1, nR2, nC2, ShiftType);
  1382. end;
  1383.  
  1384. procedure TF1Book.LineStyleDlg;
  1385. begin
  1386.   ControlInterface.LineStyleDlg;
  1387. end;
  1388.  
  1389. procedure TF1Book.MoveRange(nR1, nC1, nR2, nC2, nRowOffset, nColOffset: Integer);
  1390. begin
  1391.   ControlInterface.MoveRange(nR1, nC1, nR2, nC2, nRowOffset, nColOffset);
  1392. end;
  1393.  
  1394. procedure TF1Book.ObjAddItem(ID: Integer; const pItem: WideString);
  1395. begin
  1396.   ControlInterface.ObjAddItem(ID, pItem);
  1397. end;
  1398.  
  1399. procedure TF1Book.ObjAddSelection(ID: Integer);
  1400. begin
  1401.   ControlInterface.ObjAddSelection(ID);
  1402. end;
  1403.  
  1404. procedure TF1Book.ObjBringToFront;
  1405. begin
  1406.   ControlInterface.ObjBringToFront;
  1407. end;
  1408.  
  1409. procedure TF1Book.ObjDeleteItem(ID: Integer; nItem: Smallint);
  1410. begin
  1411.   ControlInterface.ObjDeleteItem(ID, nItem);
  1412. end;
  1413.  
  1414. procedure TF1Book.ObjGetCell(ID: Integer; var  {IDL_None} pControlCellType: Smallint; var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  1415. begin
  1416.   ControlInterface.ObjGetCell(ID, pControlCellType, pRow, pCol);
  1417. end;
  1418.  
  1419. procedure TF1Book.ObjGetPos(ID: Integer; var  {IDL_None} pX1,  {IDL_None} pY1,  {IDL_None} pX2,  {IDL_None} pY2: Single);
  1420. begin
  1421.   ControlInterface.ObjGetPos(ID, pX1, pY1, pX2, pY2);
  1422. end;
  1423.  
  1424. procedure TF1Book.ObjGetSelection(nSelection: Smallint; var  {IDL_None} pID: Integer);
  1425. begin
  1426.   ControlInterface.ObjGetSelection(nSelection, pID);
  1427. end;
  1428.  
  1429. procedure TF1Book.ObjInsertItem(ID: Integer; nItem: Smallint; const pItem: WideString);
  1430. begin
  1431.   ControlInterface.ObjInsertItem(ID, nItem, pItem);
  1432. end;
  1433.  
  1434. procedure TF1Book.ObjNameDlg;
  1435. begin
  1436.   ControlInterface.ObjNameDlg;
  1437. end;
  1438.  
  1439. procedure TF1Book.ObjNew(ObjType: Smallint; nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer);
  1440. begin
  1441.   ControlInterface.ObjNew(ObjType, nX1, nY1, nX2, nY2, pID);
  1442. end;
  1443.  
  1444. procedure TF1Book.ObjNewPicture(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pID: Integer; hMF: OLE_HANDLE; nMapMode, nWndExtentX, nWndExtentY: Integer);
  1445. begin
  1446.   ControlInterface.ObjNewPicture(nX1, nY1, nX2, nY2, pID, hMF, nMapMode, nWndExtentX, nWndExtentY);
  1447. end;
  1448.  
  1449. procedure TF1Book.ObjOptionsDlg;
  1450. begin
  1451.   ControlInterface.ObjOptionsDlg;
  1452. end;
  1453.  
  1454. procedure TF1Book.ObjPosToTwips(nX1, nY1, nX2, nY2: Single; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint);
  1455. begin
  1456.   ControlInterface.ObjPosToTwips(nX1, nY1, nX2, nY2, pX, pY, pCX, pCY, pShown);
  1457. end;
  1458.  
  1459. procedure TF1Book.ObjSendToBack;
  1460. begin
  1461.   ControlInterface.ObjSendToBack;
  1462. end;
  1463.  
  1464. procedure TF1Book.ObjSetCell(ID: Integer; ControlCellType: Smallint; nRow, nCol: Integer);
  1465. begin
  1466.   ControlInterface.ObjSetCell(ID, ControlCellType, nRow, nCol);
  1467. end;
  1468.  
  1469. procedure TF1Book.ObjSetPicture(ID: Integer; hMF: OLE_HANDLE; nMapMode: Smallint; nWndExtentX, nWndExtentY: Integer);
  1470. begin
  1471.   ControlInterface.ObjSetPicture(ID, hMF, nMapMode, nWndExtentX, nWndExtentY);
  1472. end;
  1473.  
  1474. procedure TF1Book.ObjSetPos(ID: Integer; nX1, nY1, nX2, nY2: Single);
  1475. begin
  1476.   ControlInterface.ObjSetPos(ID, nX1, nY1, nX2, nY2);
  1477. end;
  1478.  
  1479. procedure TF1Book.ObjSetSelection(ID: Integer);
  1480. begin
  1481.   ControlInterface.ObjSetSelection(ID);
  1482. end;
  1483.  
  1484. procedure TF1Book.OpenFileDlg(const pTitle: WideString; hWndParent: OLE_HANDLE; var  {IDL_None} pBuf: WideString);
  1485. begin
  1486.   ControlInterface.OpenFileDlg(pTitle, hWndParent, pBuf);
  1487. end;
  1488.  
  1489. procedure TF1Book.ProtectionDlg;
  1490. begin
  1491.   ControlInterface.ProtectionDlg;
  1492. end;
  1493.  
  1494. procedure TF1Book.RangeToTwips(nRow1, nCol1, nRow2, nCol2: Integer; var  {IDL_None} pX,  {IDL_None} pY,  {IDL_None} pCX,  {IDL_None} pCY: Integer; var  {IDL_None} pShown: Smallint);
  1495. begin
  1496.   ControlInterface.RangeToTwips(nRow1, nCol1, nRow2, nCol2, pX, pY, pCX, pCY, pShown);
  1497. end;
  1498.  
  1499. procedure TF1Book.Read(const pPathName: WideString; var  {IDL_None} pFileType: Smallint);
  1500. begin
  1501.   ControlInterface.Read(pPathName, pFileType);
  1502. end;
  1503.  
  1504. procedure TF1Book.ReadFromBlob(hBlob: OLE_HANDLE; nReservedBytes: Smallint);
  1505. begin
  1506.   ControlInterface.ReadFromBlob(hBlob, nReservedBytes);
  1507. end;
  1508.  
  1509. procedure TF1Book.Recalc;
  1510. begin
  1511.   ControlInterface.Recalc;
  1512. end;
  1513.  
  1514. procedure TF1Book.RemoveColPageBreak(nCol: Integer);
  1515. begin
  1516.   ControlInterface.RemoveColPageBreak(nCol);
  1517. end;
  1518.  
  1519. procedure TF1Book.RemovePageBreak;
  1520. begin
  1521.   ControlInterface.RemovePageBreak;
  1522. end;
  1523.  
  1524. procedure TF1Book.RemoveRowPageBreak(nRow: Integer);
  1525. begin
  1526.   ControlInterface.RemoveRowPageBreak(nRow);
  1527. end;
  1528.  
  1529. procedure TF1Book.RowHeightDlg;
  1530. begin
  1531.   ControlInterface.RowHeightDlg;
  1532. end;
  1533.  
  1534. procedure TF1Book.SaveFileDlg(const pTitle: WideString; var  {IDL_None} pBuf: WideString; var  {IDL_None} pFileType: Smallint);
  1535. begin
  1536.   ControlInterface.SaveFileDlg(pTitle, pBuf, pFileType);
  1537. end;
  1538.  
  1539. procedure TF1Book.SaveWindowInfo;
  1540. begin
  1541.   ControlInterface.SaveWindowInfo;
  1542. end;
  1543.  
  1544. procedure TF1Book.SetActiveCell(nRow, nCol: Integer);
  1545. begin
  1546.   ControlInterface.SetActiveCell(nRow, nCol);
  1547. end;
  1548.  
  1549. procedure TF1Book.SetAlignment(HAlign: Smallint; bWordWrap: WordBool; VAlign, nOrientation: Smallint);
  1550. begin
  1551.   ControlInterface.SetAlignment(HAlign, bWordWrap, VAlign, nOrientation);
  1552. end;
  1553.  
  1554. procedure TF1Book.SetBorder(nOutline, nLeft, nRight, nTop, nBottom, nShade: Smallint; crOutline, crLeft, crRight, crTop, crBottom: TColor);
  1555. begin
  1556.   ControlInterface.SetBorder(nOutline, nLeft, nRight, nTop, nBottom, nShade, crOutline, crLeft, crRight, crTop, crBottom);
  1557. end;
  1558.  
  1559. procedure TF1Book.SetColWidth(nC1, nC2: Integer; nWidth: Smallint; bDefColWidth: WordBool);
  1560. begin
  1561.   ControlInterface.SetColWidth(nC1, nC2, nWidth, bDefColWidth);
  1562. end;
  1563.  
  1564. procedure TF1Book.SetColWidthAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool);
  1565. begin
  1566.   ControlInterface.SetColWidthAuto(nR1, nC1, nR2, nC2, bSetDefaults);
  1567. end;
  1568.  
  1569. procedure TF1Book.SetDefaultFont(const pName: WideString; nSize: Smallint);
  1570. begin
  1571.   ControlInterface.SetDefaultFont(pName, nSize);
  1572. end;
  1573.  
  1574. procedure TF1Book.SetFont(const pName: WideString; nSize: Smallint; bBold, bItalic, bUnderline, bStrikeout: WordBool; crColor: TColor; bOutline, bShadow: WordBool);
  1575. begin
  1576.   ControlInterface.SetFont(pName, nSize, bBold, bItalic, bUnderline, bStrikeout, crColor, bOutline, bShadow);
  1577. end;
  1578.  
  1579. procedure TF1Book.SetHdrSelection(bTopLeftHdr, bRowHdr, bColHdr: WordBool);
  1580. begin
  1581.   ControlInterface.SetHdrSelection(bTopLeftHdr, bRowHdr, bColHdr);
  1582. end;
  1583.  
  1584. procedure TF1Book.SetIteration(bIteration: WordBool; nMaxIterations: Smallint; nMaxChange: Double);
  1585. begin
  1586.   ControlInterface.SetIteration(bIteration, nMaxIterations, nMaxChange);
  1587. end;
  1588.  
  1589. procedure TF1Book.SetLineStyle(nStyle: Smallint; crColor: TColor; nWeight: Smallint);
  1590. begin
  1591.   ControlInterface.SetLineStyle(nStyle, crColor, nWeight);
  1592. end;
  1593.  
  1594. procedure TF1Book.SetPattern(nPattern: Smallint; crFG, crBG: TColor);
  1595. begin
  1596.   ControlInterface.SetPattern(nPattern, crFG, crBG);
  1597. end;
  1598.  
  1599. procedure TF1Book.SetPrintAreaFromSelection;
  1600. begin
  1601.   ControlInterface.SetPrintAreaFromSelection;
  1602. end;
  1603.  
  1604. procedure TF1Book.SetPrintScale(nScale: Smallint; bFitToPage: WordBool; nVPages, nHPages: Smallint);
  1605. begin
  1606.   ControlInterface.SetPrintScale(nScale, bFitToPage, nVPages, nHPages);
  1607. end;
  1608.  
  1609. procedure TF1Book.SetPrintTitlesFromSelection;
  1610. begin
  1611.   ControlInterface.SetPrintTitlesFromSelection;
  1612. end;
  1613.  
  1614. procedure TF1Book.SetProtection(bLocked, bHidden: WordBool);
  1615. begin
  1616.   ControlInterface.SetProtection(bLocked, bHidden);
  1617. end;
  1618.  
  1619. procedure TF1Book.SetRowHeight(nR1, nR2: Integer; nHeight: Smallint; bDefRowHeight: WordBool);
  1620. begin
  1621.   ControlInterface.SetRowHeight(nR1, nR2, nHeight, bDefRowHeight);
  1622. end;
  1623.  
  1624. procedure TF1Book.SetRowHeightAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: WordBool);
  1625. begin
  1626.   ControlInterface.SetRowHeightAuto(nR1, nC1, nR2, nC2, bSetDefaults);
  1627. end;
  1628.  
  1629. procedure TF1Book.SetSelection(nR1, nC1, nR2, nC2: Integer);
  1630. begin
  1631.   ControlInterface.SetSelection(nR1, nC1, nR2, nC2);
  1632. end;
  1633.  
  1634. procedure TF1Book.ShowActiveCell;
  1635. begin
  1636.   ControlInterface.ShowActiveCell;
  1637. end;
  1638.  
  1639. procedure TF1Book.Sort3(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; nKey1, nKey2, nKey3: Integer);
  1640. begin
  1641.   ControlInterface.Sort3(nR1, nC1, nR2, nC2, bSortByRows, nKey1, nKey2, nKey3);
  1642. end;
  1643.  
  1644. procedure TF1Book.SortDlg;
  1645. begin
  1646.   ControlInterface.SortDlg;
  1647. end;
  1648.  
  1649. procedure TF1Book.StartEdit(bClear, bInCellEditFocus, bArrowsExitEditMode: WordBool);
  1650. begin
  1651.   ControlInterface.StartEdit(bClear, bInCellEditFocus, bArrowsExitEditMode);
  1652. end;
  1653.  
  1654. procedure TF1Book.SwapTables(hSS2: Integer);
  1655. begin
  1656.   ControlInterface.SwapTables(hSS2);
  1657. end;
  1658.  
  1659. procedure TF1Book.TransactCommit;
  1660. begin
  1661.   ControlInterface.TransactCommit;
  1662. end;
  1663.  
  1664. procedure TF1Book.TransactRollback;
  1665. begin
  1666.   ControlInterface.TransactRollback;
  1667. end;
  1668.  
  1669. procedure TF1Book.TransactStart;
  1670. begin
  1671.   ControlInterface.TransactStart;
  1672. end;
  1673.  
  1674. procedure TF1Book.TwipsToRC(x, y: Integer; var  {IDL_None} pRow,  {IDL_None} pCol: Integer);
  1675. begin
  1676.   ControlInterface.TwipsToRC(x, y, pRow, pCol);
  1677. end;
  1678.  
  1679. procedure TF1Book.SSUpdate;
  1680. begin
  1681.   ControlInterface.SSUpdate;
  1682. end;
  1683.  
  1684. function TF1Book.SSVersion: Smallint;
  1685. begin
  1686.   Result := ControlInterface.SSVersion;
  1687. end;
  1688.  
  1689. procedure TF1Book.Write(const pPathName: WideString; FileType: Smallint);
  1690. begin
  1691.   ControlInterface.Write(pPathName, FileType);
  1692. end;
  1693.  
  1694. procedure TF1Book.WriteToBlob(var  {IDL_None} phBlob: OLE_HANDLE; nReservedBytes: Smallint);
  1695. begin
  1696.   ControlInterface.WriteToBlob(phBlob, nReservedBytes);
  1697. end;
  1698.  
  1699. procedure TF1Book.SetRowHidden(nRow1, nRow2: Integer; bHidden: WordBool);
  1700. begin
  1701.   ControlInterface.SetRowHidden(nRow1, nRow2, bHidden);
  1702. end;
  1703.  
  1704. procedure TF1Book.SetColHidden(nCol1, nCol2: Integer; bHidden: WordBool);
  1705. begin
  1706.   ControlInterface.SetColHidden(nCol1, nCol2, bHidden);
  1707. end;
  1708.  
  1709. procedure TF1Book.SetColWidthTwips(nCol1, nCol2, nWidth: Integer; bDefColWidth: WordBool);
  1710. begin
  1711.   ControlInterface.SetColWidthTwips(nCol1, nCol2, nWidth, bDefColWidth);
  1712. end;
  1713.  
  1714. procedure TF1Book.EditInsertSheets;
  1715. begin
  1716.   ControlInterface.EditInsertSheets;
  1717. end;
  1718.  
  1719. procedure TF1Book.EditDeleteSheets;
  1720. begin
  1721.   ControlInterface.EditDeleteSheets;
  1722. end;
  1723.  
  1724. procedure TF1Book.InsertSheets(nSheet, nSheets: Integer);
  1725. begin
  1726.   ControlInterface.InsertSheets(nSheet, nSheets);
  1727. end;
  1728.  
  1729. procedure TF1Book.DeleteSheets(nSheet, nSheets: Integer);
  1730. begin
  1731.   ControlInterface.DeleteSheets(nSheet, nSheets);
  1732. end;
  1733.  
  1734. procedure TF1Book.Refresh;
  1735. begin
  1736.   ControlInterface.Refresh;
  1737. end;
  1738.  
  1739. function TF1Book.NextColPageBreak(Col: Integer): Integer;
  1740. begin
  1741.   Result := ControlInterface.NextColPageBreak(Col);
  1742. end;
  1743.  
  1744. function TF1Book.NextRowPageBreak(Row: Integer): Integer;
  1745. begin
  1746.   Result := ControlInterface.NextRowPageBreak(Row);
  1747. end;
  1748.  
  1749. function TF1Book.ObjFirstID: Integer;
  1750. begin
  1751.   Result := ControlInterface.ObjFirstID;
  1752. end;
  1753.  
  1754. function TF1Book.ObjNextID(ID: Integer): Integer;
  1755. begin
  1756.   Result := ControlInterface.ObjNextID(ID);
  1757. end;
  1758.  
  1759. function TF1Book.ObjGetItemCount(ID: Integer): Smallint;
  1760. begin
  1761.   Result := ControlInterface.ObjGetItemCount(ID);
  1762. end;
  1763.  
  1764. function TF1Book.ObjGetType(ID: Integer): Smallint;
  1765. begin
  1766.   Result := ControlInterface.ObjGetType(ID);
  1767. end;
  1768.  
  1769. function TF1Book.ObjGetSelectionCount: Smallint;
  1770. begin
  1771.   Result := ControlInterface.ObjGetSelectionCount;
  1772. end;
  1773.  
  1774. function TF1Book.FormatRCNr(Row, Col: Integer; DoAbsolute: WordBool): WideString;
  1775. begin
  1776.   Result := ControlInterface.FormatRCNr(Row, Col, DoAbsolute);
  1777. end;
  1778.  
  1779. function TF1Book.SS: Integer;
  1780. begin
  1781.   Result := ControlInterface.SS;
  1782. end;
  1783.  
  1784. function TF1Book.ErrorNumberToText(SSError: Integer): WideString;
  1785. begin
  1786.   Result := ControlInterface.ErrorNumberToText(SSError);
  1787. end;
  1788.  
  1789. function TF1Book.ObjNameToID(const Name: WideString): Integer;
  1790. begin
  1791.   Result := ControlInterface.ObjNameToID(Name);
  1792. end;
  1793.  
  1794. function TF1Book.DefinedNameCount: Integer;
  1795. begin
  1796.   Result := ControlInterface.DefinedNameCount;
  1797. end;
  1798.  
  1799. procedure TF1Book.ValidationRuleDlg;
  1800. begin
  1801.   ControlInterface.ValidationRuleDlg;
  1802. end;
  1803.  
  1804. procedure TF1Book.SetValidationRule(const Rule, Text: WideString);
  1805. begin
  1806.   ControlInterface.SetValidationRule(Rule, Text);
  1807. end;
  1808.  
  1809. procedure TF1Book.GetValidationRule(var  {IDL_None} Rule,  {IDL_None} Text: WideString);
  1810. begin
  1811.   ControlInterface.GetValidationRule(Rule, Text);
  1812. end;
  1813.  
  1814. function TF1Book.AutoFillItemsCount: Smallint;
  1815. begin
  1816.   Result := ControlInterface.AutoFillItemsCount;
  1817. end;
  1818.  
  1819. procedure TF1Book.CopyRangeEx(nDstSheet, nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcSheet, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer);
  1820. begin
  1821.   ControlInterface.CopyRangeEx(nDstSheet, nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcSheet, nSrcR1, nSrcC1, nSrcR2, nSrcC2);
  1822. end;
  1823.  
  1824. procedure TF1Book.Sort(nR1, nC1, nR2, nC2: Integer; bSortByRows: WordBool; Keys: OleVariant);
  1825. begin
  1826.   ControlInterface.Sort(nR1, nC1, nR2, nC2, bSortByRows, Keys);
  1827. end;
  1828.  
  1829. procedure TF1Book.DeleteAutoFillItems(nIndex: Smallint);
  1830. begin
  1831.   ControlInterface.DeleteAutoFillItems(nIndex);
  1832. end;
  1833.  
  1834. procedure TF1Book.ODBCConnect(var  {IDL_None} pConnect: WideString; bShowErrors: WordBool; var  {IDL_None} pRetCode: Smallint);
  1835. begin
  1836.   ControlInterface.ODBCConnect(pConnect, bShowErrors, pRetCode);
  1837. end;
  1838.  
  1839. procedure TF1Book.ODBCDisconnect;
  1840. begin
  1841.   ControlInterface.ODBCDisconnect;
  1842. end;
  1843.  
  1844. procedure TF1Book.ODBCQuery(var  {IDL_None} pQuery: WideString; nRow, nCol: Integer; bForceShowDlg: WordBool; var  {IDL_None} pSetColNames,  {IDL_None} pSetColFormats,  {IDL_None} pSetColWidths,  {IDL_None} pSetMaxRC: WordBool; var  {IDL_None} pRetCode: Smallint);
  1845. begin
  1846.   ControlInterface.ODBCQuery(pQuery, nRow, nCol, bForceShowDlg, pSetColNames, pSetColFormats, pSetColWidths, pSetMaxRC, pRetCode);
  1847. end;
  1848.  
  1849. procedure TF1Book.LaunchDesigner;
  1850. begin
  1851.   ControlInterface.LaunchDesigner;
  1852. end;
  1853.  
  1854. procedure TF1Book.AboutBox;
  1855. begin
  1856.   ControlInterface.AboutBox;
  1857. end;
  1858.  
  1859. function TF1Book.Get_MouseIcon: IPictureDisp;
  1860. begin
  1861.   Result := ControlInterface.MouseIcon;
  1862. end;
  1863.  
  1864. procedure TF1Book.Set_MouseIcon(var Value: IPictureDisp);
  1865. begin
  1866.   ControlInterface.MouseIcon := Value;
  1867. end;
  1868.  
  1869. function TF1Book.Get_PrintDevMode: OLE_HANDLE;
  1870. begin
  1871.   Result := ControlInterface.PrintDevMode;
  1872. end;
  1873.  
  1874. procedure TF1Book.Set_PrintDevMode(var Value: OLE_HANDLE);
  1875. begin
  1876.   ControlInterface.PrintDevMode := Value;
  1877. end;
  1878.  
  1879. function TF1Book.Get_hWnd: OLE_HANDLE;
  1880. begin
  1881.   Result := ControlInterface.hWnd;
  1882. end;
  1883.  
  1884. procedure TF1Book.Set_hWnd(var Value: OLE_HANDLE);
  1885. begin
  1886.   ControlInterface.hWnd := Value;
  1887. end;
  1888.  
  1889. function TF1Book.Get_ColText(nCol: Integer): WideString;
  1890. begin
  1891.   Result := ControlInterface.ColText[nCol];
  1892. end;
  1893.  
  1894. procedure TF1Book.Set_ColText(nCol: Integer; const Value: WideString);
  1895. begin
  1896.   ControlInterface.ColText[nCol] := Value;
  1897. end;
  1898.  
  1899. function TF1Book.Get_DefinedName(const pName: WideString): WideString;
  1900. begin
  1901.   Result := ControlInterface.DefinedName[pName];
  1902. end;
  1903.  
  1904. procedure TF1Book.Set_DefinedName(const pName: WideString; const Value: WideString);
  1905. begin
  1906.   ControlInterface.DefinedName[pName] := Value;
  1907. end;
  1908.  
  1909. function TF1Book.Get_EntryRC(nRow, nCol: Integer): WideString;
  1910. begin
  1911.   Result := ControlInterface.EntryRC[nRow, nCol];
  1912. end;
  1913.  
  1914. procedure TF1Book.Set_EntryRC(nRow, nCol: Integer; const Value: WideString);
  1915. begin
  1916.   ControlInterface.EntryRC[nRow, nCol] := Value;
  1917. end;
  1918.  
  1919. function TF1Book.Get_FormattedTextRC(nRow, nCol: Integer): WideString;
  1920. begin
  1921.   Result := ControlInterface.FormattedTextRC[nRow, nCol];
  1922. end;
  1923.  
  1924. procedure TF1Book.Set_FormattedTextRC(nRow, nCol: Integer; const Value: WideString);
  1925. begin
  1926.   ControlInterface.FormattedTextRC[nRow, nCol] := Value;
  1927. end;
  1928.  
  1929. function TF1Book.Get_FormulaRC(nRow, nCol: Integer): WideString;
  1930. begin
  1931.   Result := ControlInterface.FormulaRC[nRow, nCol];
  1932. end;
  1933.  
  1934. procedure TF1Book.Set_FormulaRC(nRow, nCol: Integer; const Value: WideString);
  1935. begin
  1936.   ControlInterface.FormulaRC[nRow, nCol] := Value;
  1937. end;
  1938.  
  1939. function TF1Book.Get_LastColForRow(nRow: Integer): Integer;
  1940. begin
  1941.   Result := ControlInterface.LastColForRow[nRow];
  1942. end;
  1943.  
  1944. procedure TF1Book.Set_LastColForRow(nRow: Integer; Value: Integer);
  1945. begin
  1946.   ControlInterface.LastColForRow[nRow] := Value;
  1947. end;
  1948.  
  1949. function TF1Book.Get_LogicalRC(nRow, nCol: Integer): WordBool;
  1950. begin
  1951.   Result := ControlInterface.LogicalRC[nRow, nCol];
  1952. end;
  1953.  
  1954. procedure TF1Book.Set_LogicalRC(nRow, nCol: Integer; Value: WordBool);
  1955. begin
  1956.   ControlInterface.LogicalRC[nRow, nCol] := Value;
  1957. end;
  1958.  
  1959. function TF1Book.Get_NumberRC(nRow, nCol: Integer): Double;
  1960. begin
  1961.   Result := ControlInterface.NumberRC[nRow, nCol];
  1962. end;
  1963.  
  1964. procedure TF1Book.Set_NumberRC(nRow, nCol: Integer; Value: Double);
  1965. begin
  1966.   ControlInterface.NumberRC[nRow, nCol] := Value;
  1967. end;
  1968.  
  1969. function TF1Book.Get_RowText(nRow: Integer): WideString;
  1970. begin
  1971.   Result := ControlInterface.RowText[nRow];
  1972. end;
  1973.  
  1974. procedure TF1Book.Set_RowText(nRow: Integer; const Value: WideString);
  1975. begin
  1976.   ControlInterface.RowText[nRow] := Value;
  1977. end;
  1978.  
  1979. function TF1Book.Get_TextRC(nRow, nCol: Integer): WideString;
  1980. begin
  1981.   Result := ControlInterface.TextRC[nRow, nCol];
  1982. end;
  1983.  
  1984. procedure TF1Book.Set_TextRC(nRow, nCol: Integer; const Value: WideString);
  1985. begin
  1986.   ControlInterface.TextRC[nRow, nCol] := Value;
  1987. end;
  1988.  
  1989. function TF1Book.Get_TypeRC(nRow, nCol: Integer): Smallint;
  1990. begin
  1991.   Result := ControlInterface.TypeRC[nRow, nCol];
  1992. end;
  1993.  
  1994. procedure TF1Book.Set_TypeRC(nRow, nCol: Integer; Value: Smallint);
  1995. begin
  1996.   ControlInterface.TypeRC[nRow, nCol] := Value;
  1997. end;
  1998.  
  1999. function TF1Book.Get_ColWidth(nCol: Integer): Smallint;
  2000. begin
  2001.   Result := ControlInterface.ColWidth[nCol];
  2002. end;
  2003.  
  2004. procedure TF1Book.Set_ColWidth(nCol: Integer; Value: Smallint);
  2005. begin
  2006.   ControlInterface.ColWidth[nCol] := Value;
  2007. end;
  2008.  
  2009. function TF1Book.Get_RowHeight(nRow: Integer): Smallint;
  2010. begin
  2011.   Result := ControlInterface.RowHeight[nRow];
  2012. end;
  2013.  
  2014. procedure TF1Book.Set_RowHeight(nRow: Integer; Value: Smallint);
  2015. begin
  2016.   ControlInterface.RowHeight[nRow] := Value;
  2017. end;
  2018.  
  2019. function TF1Book.Get_DefinedNameByIndex(nName: Integer): WideString;
  2020. begin
  2021.   Result := ControlInterface.DefinedNameByIndex[nName];
  2022. end;
  2023.  
  2024. procedure TF1Book.Set_DefinedNameByIndex(nName: Integer; const Value: WideString);
  2025. begin
  2026.   ControlInterface.DefinedNameByIndex[nName] := Value;
  2027. end;
  2028.  
  2029. function TF1Book.Get_SheetName(nSheet: Integer): WideString;
  2030. begin
  2031.   Result := ControlInterface.SheetName[nSheet];
  2032. end;
  2033.  
  2034. procedure TF1Book.Set_SheetName(nSheet: Integer; const Value: WideString);
  2035. begin
  2036.   ControlInterface.SheetName[nSheet] := Value;
  2037. end;
  2038.  
  2039. function TF1Book.Get_PaletteEntry(nEntry: Integer): TColor;
  2040. begin
  2041.   Result := ControlInterface.PaletteEntry[nEntry];
  2042. end;
  2043.  
  2044. procedure TF1Book.Set_PaletteEntry(nEntry: Integer; Value: TColor);
  2045. begin
  2046.   ControlInterface.PaletteEntry[nEntry] := Value;
  2047. end;
  2048.  
  2049. function TF1Book.Get_ColWidthTwips(Col: Integer): Smallint;
  2050. begin
  2051.   Result := ControlInterface.ColWidthTwips[Col];
  2052. end;
  2053.  
  2054. procedure TF1Book.Set_ColWidthTwips(Col: Integer; Value: Smallint);
  2055. begin
  2056.   ControlInterface.ColWidthTwips[Col] := Value;
  2057. end;
  2058.  
  2059. function TF1Book.Get_ObjItem(ID: Integer; Item: Smallint): WideString;
  2060. begin
  2061.   Result := ControlInterface.ObjItem[ID, Item];
  2062. end;
  2063.  
  2064. procedure TF1Book.Set_ObjItem(ID: Integer; Item: Smallint; const Value: WideString);
  2065. begin
  2066.   ControlInterface.ObjItem[ID, Item] := Value;
  2067. end;
  2068.  
  2069. function TF1Book.Get_ObjItems(ID: Integer): WideString;
  2070. begin
  2071.   Result := ControlInterface.ObjItems[ID];
  2072. end;
  2073.  
  2074. procedure TF1Book.Set_ObjItems(ID: Integer; const Value: WideString);
  2075. begin
  2076.   ControlInterface.ObjItems[ID] := Value;
  2077. end;
  2078.  
  2079. function TF1Book.Get_ObjName(ID: Integer): WideString;
  2080. begin
  2081.   Result := ControlInterface.ObjName[ID];
  2082. end;
  2083.  
  2084. procedure TF1Book.Set_ObjName(ID: Integer; const Value: WideString);
  2085. begin
  2086.   ControlInterface.ObjName[ID] := Value;
  2087. end;
  2088.  
  2089. function TF1Book.Get_ObjText(ID: Integer): WideString;
  2090. begin
  2091.   Result := ControlInterface.ObjText[ID];
  2092. end;
  2093.  
  2094. procedure TF1Book.Set_ObjText(ID: Integer; const Value: WideString);
  2095. begin
  2096.   ControlInterface.ObjText[ID] := Value;
  2097. end;
  2098.  
  2099. function TF1Book.Get_ObjValue(ID: Integer): Smallint;
  2100. begin
  2101.   Result := ControlInterface.ObjValue[ID];
  2102. end;
  2103.  
  2104. procedure TF1Book.Set_ObjValue(ID: Integer; Value: Smallint);
  2105. begin
  2106.   ControlInterface.ObjValue[ID] := Value;
  2107. end;
  2108.  
  2109. function TF1Book.Get_ObjVisible(ID: Integer): WordBool;
  2110. begin
  2111.   Result := ControlInterface.ObjVisible[ID];
  2112. end;
  2113.  
  2114. procedure TF1Book.Set_ObjVisible(ID: Integer; Value: WordBool);
  2115. begin
  2116.   ControlInterface.ObjVisible[ID] := Value;
  2117. end;
  2118.  
  2119. function TF1Book.Get_AutoFillItems(Index: Smallint): WideString;
  2120. begin
  2121.   Result := ControlInterface.AutoFillItems[Index];
  2122. end;
  2123.  
  2124. procedure TF1Book.Set_AutoFillItems(Index: Smallint; const Value: WideString);
  2125. begin
  2126.   ControlInterface.AutoFillItems[Index] := Value;
  2127. end;
  2128.  
  2129. function TF1Book.Get_ColHidden(nCol: Integer): WordBool;
  2130. begin
  2131.   Result := ControlInterface.ColHidden[nCol];
  2132. end;
  2133.  
  2134. procedure TF1Book.Set_ColHidden(nCol: Integer; Value: WordBool);
  2135. begin
  2136.   ControlInterface.ColHidden[nCol] := Value;
  2137. end;
  2138.  
  2139. function TF1Book.Get_RowHidden(nRow: Integer): WordBool;
  2140. begin
  2141.   Result := ControlInterface.RowHidden[nRow];
  2142. end;
  2143.  
  2144. procedure TF1Book.Set_RowHidden(nRow: Integer; Value: WordBool);
  2145. begin
  2146.   ControlInterface.RowHidden[nRow] := Value;
  2147. end;
  2148.  
  2149. function TF1Book.Get_SheetSelected(nSheet: Integer): WordBool;
  2150. begin
  2151.   Result := ControlInterface.SheetSelected[nSheet];
  2152. end;
  2153.  
  2154. procedure TF1Book.Set_SheetSelected(nSheet: Integer; Value: WordBool);
  2155. begin
  2156.   ControlInterface.SheetSelected[nSheet] := Value;
  2157. end;
  2158.  
  2159.  
  2160. procedure Register;
  2161. begin
  2162.   RegisterComponents('ActiveX', [TF1Book]);
  2163.   RegisterNonActiveX([TF1Book]);
  2164. end;
  2165.  
  2166. end.
  2167.